2 Listview in Dikey Kaydırma Çubuklarını aynı anda hareket ettirme

[walabi]

Merhaba,

Eklemeye çalıştığım resimde göründüğü gibi bir rapor ekranım var. 3 adet listview var. Rapor ekranı dönemsel karşılaştırmalar yapmaya yarıyor. Tüm listview satırları eşit.

Amacım ise şu, listview2 nin aşağı-yukarı kaydırma çubuğunu hareket ettirdikçe diğer listviewlerde buna bağlı olarak hareket etsin. Örneğin listview2 nin kaydırma çubuğunu aşağı doğru indirdikçe farazi olarak 500. satırı görüyorsam listview1 ve listview3 ün satırlarıda ekrana aynı anda gelmiş olsun.

Listview de bu mümkün müdür, yapılabilir mi.

 

[Levent Menteşoğlu]

Bu istediğinizi scrollbara tıklayınca yapmak sanırım zor. Belki api kullanılarak yapılabilir. Ancak listview2'nin click olaına aşağıdaki gibi bir kodlama yazarsanız diğer listviewlerde aynı satıra gelir.

Private Sub ListView2_Click()
ListView1.ListItems(ListView2.SelectedItem.Index).EnsureVisible
ListView3.ListItems(ListView2.SelectedItem.Index).EnsureVisible
End Sub

Ya da userform üzerine bir scrollbar nesnesi ekleyip, kaydırma işlemini bu scrollbar üzerinden yapmak isterseniz farklı bir çözümde bulunabilir. Bununla ilgili olarak hazırlamış olduğum aşağıdaki dosyayı inceleyebilirsiniz.

 

[walabi]

Bu istediğinizi scrollbara tıklayınca yapmak sanırım zor. Belki api kullanılarak yapılabilir. Ancak listview2'nin click olaına aşağıdaki gibi bir kodlama yazarsanız diğer listviewlerde aynı satıra gelir.

Private Sub ListView2_Click()
ListView1.ListItems(ListView1.SelectedItem.Index).EnsureVisible
ListView3.ListItems(ListView1.SelectedItem.Index).EnsureVisible
End Sub

Ya da userform üzerine bir scrollbar nesnesi ekleyip, kaydırma işlemini bu scrollbar üzerinden yapmak isterseniz farklı bir çözümde bulunabilir. Bununla ilgili olarak hazırlamış olduğum aşağıdaki dosyayı inceleyebilirsiniz.

Levent bey cevabınız için teşekkürler.

Click olayına dediğiniz gibi ekleme yaptım ancak 1 ve 3 de herhangi bir değişiklik olmadı. Bu dediğiniz aslında benim için uygun ve pratik. Ama bende neden olmadığını anlamadım. listview2 nin click olayında farklı kodlarda var. Kodun en başına sizin yazdığınız kodları ekledim ama değişiklik yok. Neden olabilir.

 

[Levent Menteşoğlu]

Kodda listview adını yanlış yazmışım aşağıdaki gibi deneyin.

Private Sub ListView2_Click()
ListView1.ListItems(ListView2.SelectedItem.Index).EnsureVisible
ListView3.ListItems(ListView2.SelectedItem.Index).EnsureVisible
End Sub

 

[walabi]

Kodda listview adını yanlış yazmışım aşağıdaki gibi deneyin.

Private Sub ListView2_Click()
ListView1.ListItems(ListView2.SelectedItem.Index).EnsureVisible
ListView3.ListItems(ListView2.SelectedItem.Index).EnsureVisible
End Sub

Çok Teşekkürler. Bu hali ile çalışıyor.