投稿日 | : 2004/02/21(Sat) 11:42 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: リストボックスの同時スクロール |
フォームにリストボックスを2個貼り付け下記コードをペーストして試して下さい。
後は、どちらか一方だけの設定でいいと思います。
Option Explicit
Private Sub Form_Load()
Dim i As Long
For i = 65 To 122
List1.AddItem Chr(i)
List2.AddItem Chr(i)
Next i
End Sub
Private Sub List1_Scroll()
List2.TopIndex = List1.TopIndex
End Sub
Private Sub List2_Scroll()
List1.TopIndex = List2.TopIndex
End Sub