- 日時: 2007/07/16 09:07
- 名前: 花ちゃん
- ***********************************************************************************
* カテゴリー:[リストボックス][][] * * キーワード:スクロールの同期を取る,トップインデックス,揃える,表示位置,, * ***********************************************************************************
元質問:リストボックスの同時スクロール - Akira Satoh 2004/02/21-10:20 No.8066
------------------------------------------------------------------------ Re: リストボックスの同時スクロール - 花ちゃん 2004/02/21-11:42 No.8067 ------------------------------------------------------------------------
フォームにリストボックスを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
|