ListBox1 dikey scrollbarr ve ListBox2 dikey scrollbarr eşitlemek

[teksen]

Arkadaşlar merhaba,

Ekteki dosyada UserForm üzerinde 3 adet ListBox var.

ListBox1,2 ve 3 te

ListBox2.ListIndex = ListBox1.ListIndex
ListBox3.ListIndex = ListBox1.ListIndex

kodunu kullanarak sıraları eşitledim.Fakat Scrollbar olayını eşitleyemediğim için,ListBox1 de aşağıda veya yukarıda olan bir bilgiye tıkladığımda yerleri çarpık görünüyor.

ListIndex leri eşitlediğimiz gibi Scrollbar içinde bir eşitleme yapabilirmiyiz acaba?

Herkese iyi çalışmalar.

 

[Ferhat Pazarçevirdi]

Böyle bir userform dizaynı, he ne kadar uygun olmasa da (çünkü tek bir listbox kullanabilirdiniz), ListBox1'in Click olay kodlarını aşağıdaki gibi değiştirin.

Private Sub ListBox1_Click()
    With ListBox1
        ListBox2.ListIndex = .ListIndex
        ListBox2.TopIndex = .TopIndex
        ListBox3.ListIndex = .ListIndex
        ListBox3.TopIndex = .TopIndex
    End With
End Sub

 

[teksen]

Yardımlarınız için teşekkür ederim.

Tek listbox içinde gösterebilirdik fakat ben bunu bir kapalı dosya uygulamasında kullanıcam ve listbox sınırı malesef 10 adet olduğu için bu şekilde bir dosya hazırlayıp gönderdim

elinize sağlık.

iyi çalışmalar.