2つの異なるリストボックスの位置の同期をとるには？ (ID:90917)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 他に方法があると思いますが、Selectedプロパティを使うと 下の様になりますが、気をつける点は処理が襷がけになっているので Ａの処理の中からＢの処理が呼ばれその中から更にＡの処理が呼ばれ 最後にスタックのオーバーフローになってしまう可能性がある点です。 ある処理が処理中の場合グローバルフラグでそれを回避します。 Option Explicit Dim Flg As Boolean Private Sub リストA_Click() Dim i As Integer If Flg Then Exit Sub Flg = True リストB.TopIndex = リストA.TopIndex For i = 0 To リストA.ListCount - 1 If リストA.Selected(i) Then リストB.Selected(i) = True Else リストB.Selected(i) = False End If Next Flg = False End Sub Private Sub リストB_Click() Dim i As Integer If Flg Then Exit Sub Flg = True For i = 0 To リストB.ListCount - 1 リストA.TopIndex = リストB.TopIndex If リストB.Selected(i) Then リストA.Selected(i) = True Else リストA.Selected(i) = False End If Next Flg = False End Sub Private Sub リストA_Scroll() リストB.TopIndex = リストA.TopIndex End Sub Private Sub リストB_Scroll() Me.リストA.TopIndex = リストB.TopIndex End Sub