21/12/2020, 11:37
serkan1985
Herkese merhaba,
Uygulamalarda ctrl ve shift tuşları iptal edilebiliyor ama ben "-" tire tuşunu iptal edemiyorum. Sebebi form içeriğinde ctrl+(-) kullanıldığında veriyi silmesi. Ben silme eylemini sadece buton ile yapmasını istiyorum. Uyguladığım kod aşağıda ki gibi. Nasıl - tuşunu pasif hale getirebilirim? Bilgi ve yardımlarınızı rica ederim.
Uygulamalarda ctrl ve shift tuşları iptal edilebiliyor ama ben "-" tire tuşunu iptal edemiyorum. Sebebi form içeriğinde ctrl+(-) kullanıldığında veriyi silmesi. Ben silme eylemini sadece buton ile yapmasını istiyorum. Uyguladığım kod aşağıda ki gibi. Nasıl - tuşunu pasif hale getirebilirim? Bilgi ve yardımlarınızı rica ederim.
Select Case True
Case ((Shift And acCtrlMask) > 0 And ((KeyCode = vbKeyF) Or (KeyCode = vbKeyF1) Or (KeyCode = vbKeyF2) Or (KeyCode = vbKeyF3) Or (KeyCode = vbKeyF4) Or (KeyCode = vbKeyF5) Or (KeyCode = vbKeyF6) Or (KeyCode = vbKeyF7) Or (KeyCode = vbKeyF8) Or (KeyCode = vbKeyF9) Or (KeyCode = vbKeyF10) Or (KeyCode = vbKeyF11) Or (KeyCode = vbKeyF12) Or (KeyCode = vbKeyF13)))
KeyCode = 0
Case ((Shift And acCtrlMask) > 0 And ((KeyCode = vbKeyP) Or (KeyCode = vbKeyS) Or (KeyCode = vbKeyW) Or (KeyCode = vbKeyO) Or (KeyCode = vbKeyN) Or (KeyCode = vbKeyH) Or (KeyCode = vbKeyV)))
KeyCode = 0
End Select