aşağıdaki kod açılır kutuya veri girilmesini engeller
tabi yön tuşlarının çalışması için if yada case ile kontrol sağlanabilir yada
KeyDown yerine KeyPress kullanılabilir ama bu durumda da conrol+ C ile veri yine girilebilir maalesef
Private Sub AcilanKutu_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub
(05/11/2020, 13:39)berduş yazdı: aşağıdaki kod açılır kutuya veri girilmesini engeller
tabi yön tuşlarının çalışması için if yada case ile kontrol sağlanabilir yada
KeyDown yerine KeyPress kullanılabilir ama bu durumda da conrol+ C ile veri yine girilebilir maalesef
Private Sub AcilanKutu_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub
Sağol abey vakit olunca teferruatlıca dener ve ilgilenirim tam yapabilmek için.
aklıma gelenleri ekledim
dilerim işinize yarar
Private Sub AKEngelle_KeyDown(KeyCode As Integer, Shift As Integer)
'tab: 9
'enter: 13
'ESC: 27
'pageUP: 33
'pageDown: 34
'end: 35
'home: 36
'up/yukarı: 38
'down/aşağı: 40
'execute: 43
Select Case KeyCode 'basılan tuş kodu
Case 9, 13, 27, 33, 34, 35, 36, 38, 40, 43
Case Else ' diğer değerler
KeyCode = 0
End Select
End Sub
Berduş hocam istediğime yakın olmuş.
Alttaki koduda ekleyince maus ile tıklayıncada açılıyor.Böyle iyi oldu.2 olay kaldı birisi bence zor iş olmasada olur.
Gifte gösterdim alttaki comboya her tıklamada açılıp kapanıyor liste.Üstteki ise açılınca bapanmıyor alttaki gibi tekrar tıklama ile.
Yani üstteki comboya tıklayınca Dropdown aktif olacak tekrar tıklayınca Dropdown pasif olacak gibi.
Private Sub combo1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
combo1.Dropdown
End Sub
Acilir kutunun acilip acilmadigini kontrol etmek icin galiba api gerekiyormuş, apiyi kullanarak açıksa sendkey ile enter yollanabilir
(05/11/2020, 23:20)berduş yazdı: Acilir kutunun acilip acilmadigini kontrol etmek icin galiba api gerekiyormuş, apiyi kullanarak açıksa sendkey ile enter yollanabilir
Neyse ozaman gerek yok abey başka yere tıklanınca kapanıyor zaten.sendkey olayı numlocku açıp kapatıyordu excelde,accesstede böyle olursa problem.Çözüldü tarafına taşınabilir konu abey.Sağolun.