Skip to main content

AccessTr.neT


Dropdown menü

Dropdown menü

#1
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)
Cevapla
#2
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.
Cevapla
#3
Teşekkür ederim @ozanakkaya . Tam istediğim gibi oldu.
Cevapla
#4
Yaptığın çalışmayı paylaşırmısın.
Cevapla
#5
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da