狂送100分（42---listbox)

[binbin2000]

两个listbox:list1,list2，里面有一样多条的item数据。
要求，当其中一个滚动时，另外一个也跟着滚动同样条数据。
在scroll事件中写吗？怎么写呢，
最好给出代码。

[lihonggen0]

Private Sub Form_Load()
For i = 1 To 25
List1.AddItem "list" & i
List2.AddItem "list" & i
Next
End Sub

Private Sub List1_Scroll()
List2.TopIndex = List1.TopIndex
End Sub

[dandy1437]

楼上大虾的方法好

[of123]

高！

[didishu0807]

我试了一下，果然

[pandengzhe]

hao!

[diyee]

很常用的方法。

[diyee]

标准答案来了，我们都没有分挣了。

[hxy2003]

能学到东西不挣分也可以

[xinshaw]

嗯，厉害

[lxqlogo0]

试试这样什么效果：
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
List2.ListIndex = List1.ListIndex

End Sub

Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
List2.ListIndex = List1.ListIndex

End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List2.ListIndex = List1.ListIndex
End Sub

Private Sub List1_Scroll()
List2.TopIndex = List1.TopIndex

End Sub

[penglc]

一楼的good，　我只来接分

[DESL]

晕不用这么复杂吧

Private Sub Combo1_Scroll()
Combo2.Text = Combo1.Text
End Sub
一句就够了

[qzrxy]

up

[since1990]

帮你 up

[cxmty]

直接用
Private Sub List1_Scroll()
List2.TopIndex = List1.TopIndex

End Sub

[binbin2000]

感谢各位，问题似乎解决了，但是新问题出来了，我用鼠标移动滑块能行，但是用鼠标滚轮就不行了。是不是scroll事件不能支持滚轮？