Imprimir Página - ayuda listbox

Título: ayuda listbox
Publicado por: Carlosnuel en 5 Diciembre 2006, 04:11 am

Hola, tengo una pequeña duda

tengo un listbox en el cual voy agregando elementos por ejemplo estos E, E', T, F

ahora quiero meter esos mismos elementos en un grid (MSHFlexGrid) precisamente en la localidad (0, i) por medio de un for

actualmente tengo mis valores inicializados en el arreglo de la sig. forma

Citar

NoTerm = Split("E|E'|OS|T|T'|OM|F", "|")

lo que me gustaría hacer y no me sale, es que la variable NoTerm se carge con todos los valores que guarde en el listbox, osea que NoTerm este vacio y tome los valores que estoy guardando en mi ListBox

lo he intentado hacer de esta forma pero no me funciona... ojala puedan ayudarme

Citar

For i = 0 To ListNTT - 1
grd.TextMatrix(0, i + 1) = NoTerm(i)
Next i

ah! y otra pregunta abusando de su confianza...
en mi mismo MSHFlexGrid por ejemplo si quiero realizar una busqueda de un valor con que funcion la haría, por ejemplo, quiero buscar la Fila que tiene un E supongamos que es el 3° valor del arreglo y la columna con un + que supongo que es la localidad 2° entonces posicionarme en esa interseccion (3,2) y escribir un valor... ya sé como escribir algo en esa posición, pero lo que no sé es como poder buscar el valor E y + (la busqueda la quiero realizar sin importar en que parte del arreglo este) ojala puedan ayudarme

gracias por sus comentarios

Título: Re: ayuda listbox
Publicado por: CeLaYa en 5 Diciembre 2006, 14:01 pm

bueno para el pasar los datos al MsFlexGrid yo lo haría así:

Código:


dim Columna as long, Renglon as Long

Columna = 0
renglon = 0

for renglon = 0 to ListNtt.ListCount
      Msflex1.Rows = reglon +1
      msFlex1.Row = renglon
      msFlex1.Text = listNTT.List(renglon)
next Renglon

para buscar la texto en por columnas tendrías que poner 2 "FOR" para recorrer el MSFlex y puedes usar la función InStr

Código:

dim Renglon as Long, Columna as Long
Dim Salir as Boolean

salir = false

for renglon = 0 to MSflex1.Rows
   For Columna = 0 to MSFlex1.Cols
             msflex1.col = columna
             msFlex1.Row = Renglon
             if inStr(msFlex1.Text , "E") <> 0 then ' Aqui pones el valor a búscar
                 ' Lo encontro
                  salir = True
                  exit for
              end if

   next Columna

   if salir then exit for

next Renglon

espero te sirva....

Título: Re: ayuda listbox
Publicado por: Carlosnuel en 6 Diciembre 2006, 16:20 pm

ok gracias... ya he implementado la parte de generar la tabla apartir de los listbox...

me quedo de la siguiente forma

Código:

For i = 1 To grd.Rows - 1
grd.Col = 0
grd.Row = i
grd.TextMatrix(i, 0) = ListNTT.List(i - 1)
Next i

ahora tratare de implementar la idea que me diste para la busqueda entre celdas

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Carlosnuel en 5 Diciembre 2006, 04:11 am