VB6同步滚动多个listbox？
一个8个listbox, data_list(0)~data_list(7)，在其内填上数据>200个
现在我想利用data_list(7)自带的滚动条，来同步控制前7个。
没找到相关参数，不知道怎么实现。 vb vb6 滚动条 同步 下拉
[解决办法]
本帖最后由 bcrun 于 2013-02-26 20:35:31 编辑 其中的列表项数目相同吗？如果相同（3 个 ListBox 同步的例子）：
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 200
List1(0).AddItem i
List1(1).AddItem i
List1(2).AddItem i
Next i
End Sub
Private Sub List1_Scroll(Index As Integer)
Dim i As Integer
For i = 0 To 2
If (i <> Index) Then List1(i).TopIndex = List1(Index).TopIndex
Next i
End Sub
