ListBox con Columnas
Publicado por Tatayayan (35 intervenciones) el 16/03/2007 17:32:15
Hola!
Incursionando en VB, cree un formulario con un ListBox (cuadro de lista) donde indique 5 columnas, le ingreso numeros a las 5 columnas con
Listbox1.Additem nro1+chr(9)+nro2+chr(9)+nro3+chr(9)+nro4+chr(9)+nro5
previamente me aseguré que nro1... son numeros, isnumeric.
Abajo de la lista tengo 5 cajas de texto, Text1, Text2... donde deseo poner el total por columnas, como lo hago, para la primera y segunda hice:
For i=1 To Listbox1.ListCount
Tot1=Tot1+Val(List1.List(i-1))
Tot2=Tot2+Val(mid(List1.List(i-1),instr(1,List1.List(i-1),Chr(09))+1)))
next i
Hay otra manera mas eficiente de realizar esto?
Hay algun propiedad simiar a esto Lista1.List(Fila,Col) donde Fila y Col son enteros?
Espero me puedan ayudar.
PD: a este código lo puse en ciber donde hice este post, es mas o menos parecido a lo que me funciona.
Incursionando en VB, cree un formulario con un ListBox (cuadro de lista) donde indique 5 columnas, le ingreso numeros a las 5 columnas con
Listbox1.Additem nro1+chr(9)+nro2+chr(9)+nro3+chr(9)+nro4+chr(9)+nro5
previamente me aseguré que nro1... son numeros, isnumeric.
Abajo de la lista tengo 5 cajas de texto, Text1, Text2... donde deseo poner el total por columnas, como lo hago, para la primera y segunda hice:
For i=1 To Listbox1.ListCount
Tot1=Tot1+Val(List1.List(i-1))
Tot2=Tot2+Val(mid(List1.List(i-1),instr(1,List1.List(i-1),Chr(09))+1)))
next i
Hay otra manera mas eficiente de realizar esto?
Hay algun propiedad simiar a esto Lista1.List(Fila,Col) donde Fila y Col son enteros?
Espero me puedan ayudar.
PD: a este código lo puse en ciber donde hice este post, es mas o menos parecido a lo que me funciona.
Valora esta pregunta
0