listbox dışına çıkınca visible=0 yapmak

[acar6783]

Mouse move olayı ile denedim ama başamadım
listbox ekranın dışına çıkınca visible false yapabileceğim bir kod düşünüyorum ama akşıam birşey gelmiyor.
Fikri olan arkadaş varmıdır?

 

[Erdem Akdemir]

Merhaba,

Tam olarak nasıl birşey istiyorsunuz. Listbox ekranı dışı dediğiniz userform'un üstünde mi listbox gizlenecek, yoksa komple userform mu gizlenecek.

 

[acar6783]

Aslında cevabınız bana bir fikir verdi ama ne kadar kullanışlı olur.
listbox arkasına listwiew-textbox var.
listwiew yada tesxtboxların mousemove olayına bu işi yaptırabilirim.

Ama listboxın dahilinde bir hareket olursa daha sağlıklı olur düşüncesindeyim öneriniz varsa bekliyorum.
Listbox alanının dışına mouse geldiği zaman sadece o listbox gizlencek.Bu şelikilde 30 listbox var clasmodulle çalıştırıyorum hepsini.

 

[acar6783]

Evet listwiew nesnesine bu olayı yaptırabiliyorum.

Private Sub raporlist_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
For i2 = 1 To 30
RAPORLAMA.Controls("Listbox" & i2).Clear
 RAPORLAMA.Controls("Listbox" & i2).Visible=0
Next i2
End Sub