Dropdown menü

06/12/2016, 01:24

exmadon

Merhaba;
Ekteki örnekte olduğu gibi alt alta sıraladığım butonları tıklandığında "visible = true/false" kodu ile dropdown menü gibi yapabiliyorum. Peki sadece mause üzerinde gezildiğinde de açılır/kapanır şekilde yapabilir miyim? 
[attachment=25990]
06/12/2016, 03:14

ozanakkaya

Yapabilirsiniz.

Forma mtn_gecici adında metin kutusu ekle,

vba sayfasındaki denetimlere ait kodları sil, 

Ayrıntının "Fare Taşındığında" olayına;


Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.mtn_gecici.SetFocus
K1.Visible = False
K2.Visible = False
K3.Visible = False
K8.Visible = False
K9.Visible = False
K10.Visible = False
End Sub


K0 butonunun fare taşındığında olayına

Private Sub K0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.mtn_gecici.SetFocus
K1.Visible = True
K2.Visible = True
K3.Visible = True
K8.Visible = False
K9.Visible = False
K10.Visible = False
End Sub


K7 butonunun fare taşındığında olayınada

Private Sub K7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.mtn_gecici.SetFocus
K1.Visible = False
K2.Visible = False
K3.Visible = False
K8.Visible = True
K9.Visible = True
K10.Visible = True
End Sub

kodlarını ekle.
06/12/2016, 10:24

exmadon

Teşekkür ederim @ozanakkaya . Tam istediğim gibi oldu.
06/12/2016, 12:28

okumas

Yaptığın çalışmayı paylaşırmısın.
06/12/2016, 13:37

atoz112

sayın okumas,

bahsettiğiniz talebinize yönelik olarak;

konu sahibi sayın exmadon tarafından paylaşılan örnek uygulama üzerinde,
sayın ozan bey tarafından paylaşılan açıklamaları aynı şekilde uygulamanız yeterlidir.

bilginize...iyi çalışmalar,saygılar.