複数のListBoxを同時にスクロール操作するには？

解決

fig 2009-03-03 21:26:55 No: 141613

VB初心者です。
現在お客の名前、年齢、仕事などを入力しそれぞれListBox1,ListBox2,ListBox3に入れていきました。
しかし件数が多くなってくるとListBoxに入りきらなくなってしまいます。
スクロールなどをすれば見えるのですが、ListBox1をスクロールすると他のListBoxとずれが発生してしまいます。それを解決したいのですがどうしたらいいでしょうか？
ListBox一つに空白で区切って入れることもかんがえたのですが、きれいにならないし、後の処理が面倒になるので断念しました。
何かいい方法はないでしょうか？よろしくお願いします。

３月 2009-03-03 22:39:46 No: 141614

ＶＢ６で．．．．。

ListBox1  ,  ListBox2  ,  ListBox3  は同期が取れているのですよね。
即ち
ListBox1  の上から３番目のお客の名前と
ListBox2  の上から３番目のお客の年齢と
ListBox3  の上から３番目のお客の仕事ととが．．．。

下記の様にしてみたら如何でしょうか？

Dim i As Integer
Dim j As Integer

Private Sub Form_Load()

'テストの為にデータを表示させてみる
   For i = 1 To 9
       List1.AddItem i
   Next i

   For i = 1 To 9
       List2.AddItem i * 10 + i * 1
   Next i

   For i = 1 To 9
       List3.AddItem i * 100 + i * 10 + i * 1
   Next i

End Sub

Private Sub List1_Click()

'List1 をクリックしたらＬｉｓｔ１と同じ Index の
'List2 , List3 に移動する。

List2.ListIndex = List1.ListIndex
List3.ListIndex = List1.ListIndex

   '一番上の行になるが、処理に時間が掛かる
   List1.TopIndex = List1.ListIndex
   List2.TopIndex = List1.ListIndex
   List3.TopIndex = List1.ListIndex

End Sub

fig 2009-03-04 00:40:41 No: 141615

ありがとうございます。そのとおりにやってみるとできました。
こういうやり方があるのかという勉強にもなりました。