Question

vb中如何设置才能使listbox的垂直滚动条同时滚动？

有四个listbox,假设分别为1,2,3,4，他们的listcount是一样的。当list项超过时，会有自动的垂直滚动条。想拖动任意一个滚动条，其余三个的滚动条也同时滚动，具体如何实现？求高人给出代码…

Answer 1

Private Sub List1_Scrol1()
'List1.TopIndex = List1.TopIndex
List2.TopIndex = List1.TopIndex
List3.TopIndex = List1.TopIndex
List4.TopIndex = List1.TopIndex
End Sub

Private Sub List1_Scrol2()
List1.TopIndex = List1.TopIndex
'List2.TopIndex = List1.TopIndex
List3.TopIndex = List1.TopIndex
List4.TopIndex = List1.TopIndex
End Sub

Private Sub List1_Scrol3()
List1.TopIndex = List1.TopIndex
List2.TopIndex = List1.TopIndex
'List3.TopIndex = List1.TopIndex
List4.TopIndex = List1.TopIndex
End Sub

Private Sub List1_Scrol4()
List1.TopIndex = List1.TopIndex
List2.TopIndex = List1.TopIndex
List3.TopIndex = List1.TopIndex
'List4.TopIndex = List1.TopIndex
End Sub