Resumen Sincronizar dos listbox

>Como puedo hacer para que dos ListBox estén sincronizados,
>a medida que muevo la barra de desplazamiento de uno se
>mueva el otro.

Este ejemplo supone que se corresponde la línea 1 del primero con la 1 del
segundo, la 2 con la 2 , etc. Además selecciona el mismo elemento en ambos
listbox (no sé si te hacía falta)

declaras un variable en el formulario :
Dim cambiando As Boolean

Y luego :

Private Sub List1_Click()
If Not cambiando Then
    cambiando = True
    List2.ListIndex = List1.ListIndex
    cambiando = False
End If
End Sub

Private Sub List1_Scroll()
If Not cambiando Then
    cambiando = True
    List2.TopIndex = List1.TopIndex
    cambiando = False
End If
End Sub


Private Sub List2_Click()
If Not cambiando Then
    cambiando = True
    List1.ListIndex = List2.ListIndex
    cambiando = False
End If

End Sub


Private Sub List2_Scroll()
If Not cambiando Then
    cambiando = True
    List1.TopIndex = List2.TopIndex
    cambiando = False
End If

End Sub


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma
ICQ # : 10939566



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com