AccessTr.neT

Bul · 06/12/2016, 01:24

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?

buton.rar (Dosya Boyutu: 21,75 KB | İndirme Sayısı: 31)

Bul · 06/12/2016, 03:14

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.

Bul · 06/12/2016, 10:24

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

Bul · 06/12/2016, 12:28

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

Bul · 06/12/2016, 13:37

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.

AccessTr.neT

Dropdown menü

Dropdown menü

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

Giriş yap

Hesap oluştur

Konu Linkleri