Lo mismo q fede
Voy a explicar esto de la forma mas sencilla posible para que todos puedan entender y responder. Tengo en un Form 4 listbox con una capacidad de 15 items aproximadamente, ahora estos tienen datos son correspondientes (es decir que al primer dato del list1 le corresponde el primer dato del list2, list3 y list4). El problema es que cuando sobrepasa esa capacidad me aparence en cada list una vbscrolbar y al bajar el list 1 por ejemplo quedan desalineados los datos de los otros list. A mi se me ocurrio anular el scrolbar de los 4 list y pones uno independiente que baje los cuatro list al mismo tiempo. Y mi pregunta es logica, ¿como hago esto? o sino que otra forma de hacer que bajen los 4 list al mismo tiempo.
en tu caso tendrias que usar un codigo de sincronizacion asi:
deberas colocar la subrutina seleccion en el evento click del list1
Private Sub seleccion1()
Static sincronizar As Boolean
'Sincronizar el List1 con el resto (4)
If Not sincronizar Then
sincronizar = True
List2.ListIndex = List1.ListIndex
List2.TopIndex = List1.TopIndex
List3.ListIndex = List1.ListIndex
List3.TopIndex = List1.TopIndex
List4.ListIndex = List1.ListIndex
List4.TopIndex = List1.TopIndex
List11.TopIndex = List1.TopIndex
sincronizar = False
End If
End Sub
deberas colocar la subrutina seleccion en el evento click del list1
Private Sub seleccion1()
Static sincronizar As Boolean
'Sincronizar el List1 con el resto (4)
If Not sincronizar Then
sincronizar = True
List2.ListIndex = List1.ListIndex
List2.TopIndex = List1.TopIndex
List3.ListIndex = List1.ListIndex
List3.TopIndex = List1.TopIndex
List4.ListIndex = List1.ListIndex
List4.TopIndex = List1.TopIndex
List11.TopIndex = List1.TopIndex
sincronizar = False
End If
End Sub
