VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/02/21(Sat) 11:42
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: リストボックスの同時スクロール

フォームにリストボックスを２個貼り付け下記コードをペーストして試して下さい。
後は、どちらか一方だけの設定でいいと思います。
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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -