AccessTr.neT
SHift, Alt,Control tuşları basılımı değilmi? - Baskı Önizleme

+- 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...