リストボックスの同期

２つのリストボックスがならんでいて、両方のスクロールバーの移動を同期させたいのですが、可能なのでしょうか？
教えてください。使用プログラムはVB6です。

No.1 ベストアンサー 回答者： davidname 回答日時： 2005/06/04 07:47

Private Sub Form_Load()

Dim i&
For i = 0 To 100
List1.AddItem i
List2.AddItem i
Next i
End Sub

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

こんな感じでどうですか。

No.2 回答者： piyo2000 回答日時： 2005/06/06 02:52

#1さんの回答だとうまくいかないようですね(^^;

List1→List2だけしか考慮してないのも問題ですし。

ちょっと(というか多分、かなり)高度になりますが、両方のコントロールをサブクラス化して、WM_VSCROLL等のメッセージを捕まえて片方に送ってやる(フラグを立てて、無限ループにならないように注意)ことで実現できると思います。

サブクラス化の手法についてはWebで検索してもらうと簡単にヒットすると思いますが、参考までにURLを。

参考URL：http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/98 …