AccessTr.neT
Dropdown menü - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dropdown menü (/konu-dropdown-menu.html)

Dropdown menü - exmadon - 06/12/2016

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? 
.rar buton.rar (Dosya Boyutu: 21,75 KB | İndirme Sayısı: 31)


Cvp: Dropdown menü - ozanakkaya - 06/12/2016

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.

Cvp: Dropdown menü - exmadon - 06/12/2016

Teşekkür ederim @ozanakkaya . Tam istediğim gibi oldu.

Cvp: Dropdown menü - okumas - 06/12/2016

Yaptığın çalışmayı paylaşırmısın.

Cvp: Dropdown menü - atoz112 - 06/12/2016

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.