AccessTr.neT

Tam Versiyon: SHift, Alt,Control tuşları basılımı değilmi?
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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ı."
paylaşım için teşekkürler accessman
Sn:accessman
Paylaşımlar için teşekkürler
Teşekkürler accessman.
Sn accesman paylaşım için teşekkürler. Saygılar...