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]
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.
Teşekkür ederim @
ozanakkaya . Tam istediğim gibi oldu.
Yaptığın çalışmayı paylaşırmısın.
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.