Liên kết các thanh cuộn trên các hộp danh sách liền kề với nhau

Question

tôi sử dụng ấn bản VB6 enterprize. Làm thế nào người ta có thể đi về việc liên kết các thanh vscroll cho các hộp danh sách liền kề sao cho, nếu một hộp được cuộn, hai cái khác sẽ trượt lên và xuống? Đối tượng là giữ thông tin hiển thị trong danh sách cạnh nhau. Tôi đã thử thiết lập thuộc tính listindex của hai danh sách khác bằng danh sách đầu tiên của một người bằng cách sử dụng sự kiện nhấp chuột. Nó hoạt động sau một thời trang, nhưng là một giải pháp ít hơn lý tưởng. Nếu một lần nhấp vào một mục trong danh sách đầu tiên, danh sách cho hai mục khác xuất hiện trên màn hình, nhưng chúng không thực sự được liên kết hoặc hiển thị cạnh nhau. Tôi nhận thấy một sự kiện cuộn nhưng không thể tìm thấy bất kỳ tình trạng hôn nhân nào khi sử dụng sự kiện này trong bất kỳ sách VB nào của tôi. Mọi trợ giúp sẽ được đánh giá cao.

Answer 1

Xử lý scroll event cho hộp danh sách. Điều này sẽ kích hoạt bất cứ khi nào hộp danh sách được cuộn.

Trong trình xử lý sự kiện, hãy đặt TopIndex property cho các hộp danh sách khác bằng với TopIndex của hộp danh sách được cuộn.

Tôi tìm thấy mã này cho 2 hộp danh sách trên newsgroup post. Một biến cấp mô đun được sử dụng để ngăn chặn đệ quy: thiết lập TopIndex từ mã có thể kích hoạt lại sự kiện 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