Visual Basic - seleccion en listas

Life is soft - evento anual de software empresarial
   
Vista:

seleccion en listas

Publicado por Lucio (5 intervenciones) el 10/08/2009 18:36:09
hola de nuevo, ahora el problema es el siguiente:
tengo por ej 5 listas (con datos diferentes) y necesito seleccionar un elemento de una de ellas y que en las otras se seleccione con el mismo indice que el que yo seleccione.
desde ya muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:seleccion en listas

Publicado por jaime guerrero (361 intervenciones) el 10/08/2009 21:51:46
en el evento clic de la lista 1 pones

lista2.item(index lista1).selected, o algo asi. al menos te doy la idea. yo te pongo el codigo como debe ser porque no tengo el vb6 instalado en este momento
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:seleccion en listas

Publicado por juan carlos (518 intervenciones) el 15/08/2009 04:37:01
hola Lucio, te mandaria el programa completo pero no se tu mail para enviarlo
contactame y te lo envio.
mi mail es:
mega.juca@hotmail.es

empecemos:
1.- abre una forma nueva
2.- inserta un listbox
3.- inserta un label1
4.- copia el listbox de tal manera que quede asi(list1(0),list1(1),list1(2),list1(3),list1(4)
5.- inserta este codigo

Rem llenamos los listbox con 20 registros
Private Sub Form_Load()
Dim e, i As Integer
For e = 1 To 20
For i = List1.Count - 1 To 0 Step -1
List1(i).AddItem "click"
Next i
Next e
End Sub

Rem en el listbox que toques todos los demas seran seleccionados
Private Sub List1_Click(index As Integer)
Dim i As Integer
label1.Caption = List1(1).ListIndex
Select Case index
Case 0
label1.Caption = List1(0).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 1
label1.Caption = List1(1).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 2
label1.Caption = List1(2).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 3
label1.Caption = List1(3).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 4
label1.Caption = List1(4).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
End Select
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:seleccion en listas

Publicado por Lucio (5 intervenciones) el 17/08/2009 19:06:28
Gracias Juan, por tu respuesta. ya la pongo en práctica. jeje. nos estamos viendo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar