[リストへもどる]
一括表示

投稿時間:2004/02/21(Sat) 10:20
投稿者名:Akira Satoh
Eメール:akira@ps2serv.no-ip.com
URL :http://ps2serv.no-ip.com/
タイトル:
リストボックスの同時スクロール
MP3プレイヤーを作っているAkiraと申します。
質問ですが、再生中のファイルを示すのに、
リストボックスを二つ置き、ひとつを幅を小さくして、
Enabled=Falseにして、ファイルを追加するたびに半角スペースだけを追加し、
もうひとつのリストボックスにファイル名を追加しています。
そして再生中のファイルを示すためにlistIndexを指定して
半角スペースを選択状態にして表示しています。
ところが、大きいほうのリストをスクロールすると、
小さいほうはスクロールされないためずれてしまいます。
同時スクロールの方法を教えてください。よろしくお願いします。
説明がわかりにくくて申し訳ございません。
環境はVB6のwinXPです。

投稿時間: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

投稿時間:2004/02/21(Sat) 11:54
投稿者名:Akira Satoh
Eメール:akira@ps2serv.no-ip.com
URL :http://ps2serv.no-ip.com/
タイトル:
Re^2: リストボックスの同時スクロール
List1_Scrollですか・・・
知りませんでした。ありがとうございました。
またお世話になるかもしれません。
そのときはよろしくお願いします。