+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: SHift, Alt,Control tuşları basılımı değilmi? (/konu-shift-alt-control-tuslari-basilimi-degilmi.html)
SHift, Alt,Control tuşları basılımı değilmi? - accessman - 20/11/2009
alıntıdır
Yeni bir modül oluşturup en üstteki Option Compare Database ve
varsa Option Explicit satırlarının altına şu satırları yerleştirin:
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_SHIFT = &H10 'SHIFT
Public Const VK_CONTROL = &H11 'CTRL
Public Const VK_MENU = &H12 'ALT
Programınızın herhangi bir yerinde, basılı olup olmadığını bulmak istediğiniz
tuşlar için şu kodu kullanabilirsiniz artık:
If GetKeyState(VK_SHIFT) < 0 Then MsgBox "SHIFT tuşu basılı."
If GetKeyState(VK_CONTROL) < 0 Then MsgBox "CTRL tuşu basılı."
If GetKeyState(VK_MENU) < 0 Then MsgBox "ALT tuşu basılı."
Cvp: SHift, Alt,Control tuşları basılımı değilmi? - Nurullah_Serdar - 20/11/2009
paylaşım için teşekkürler accessman
Cvp: SHift, Alt,Control tuşları basılımı değilmi? - ogulcan92 - 20/11/2009
Sn:accessman
Paylaşımlar için teşekkürler
Cvp: SHift, Alt,Control tuşları basılımı değilmi? - arzuu - 20/11/2009
Teşekkürler accessman.
Cvp: SHift, Alt,Control tuşları basılımı değilmi? - benremix - 22/11/2009
Sn accesman paylaşım için teşekkürler. Saygılar...