隣接するリストボックスにスクロールバーをリンクする

Question

私はVB6エンタープライズ版を使用しています。 隣接するリストボックスのvscrollバーをリンクすると、スクロールすると2つのスライドが上下にスライドするようになります。目的は、一覧に情報を並べて表示することです。私は、他の2つのリストのlistindexプロパティを、clickイベントを使って最初のlistindexと同じに設定しようとしました。それはファッションの後に動作しますが、理想的なソリューションではありません。最初のリストの項目をクリックすると、他の2つのリスト索引が画面に表示されますが、実際にはリンクされていません。 私はスクロールイベントに気付きましたが、私のVBブックでこのイベントを使用していても、何のマラリアルも見つけられませんでした。 ご協力いただければ幸いです。

Answer 1

リストボックスのscroll eventを処理します。これは、リストボックスがスクロールされるたびに発生します。イベントハンドラで

は、スクロールリストボックスのTopIndexに等しい他のリストボックスのためTopIndex propertyを設定します。

newsgroup postの2つのリストボックスでこのコードが見つかりました。モジュールレベルの変数は、再帰を防ぐために使用されます。コードからTopIndexを設定すると、Scrollイベントが再度発生する可能性があります。

Dim m_NoScroll As Boolean ''module-level flag var 

Private Sub List1_Scroll() 
    If Not m_NoScroll Then 
     m_NoScroll = True 
     List2.TopIndex = List1.TopIndex 
     m_NoScroll = False 
    End If 
End Sub 

Private Sub List2_Scroll() 
    If Not m_NoScroll Then 
     m_NoScroll = True 
     List1.TopIndex = List2.TopIndex 
     m_NoScroll = False 
    End If 
End Sub