用API (GetAsyncKeyState)实现,在WIN 2K,XP 下有效:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_Lshift = &HA0
Private Const VK_Rshift = &HA1
Private Const VK_LCtrl = &HA2
Private Const VK_RCtrl = &HA3
Private Const VK_LMENU = &HA4
Private Const VK_RMENU = &HA5
Private Sub Form_KeyDown(KeyCode As Integer, shift As Integer)
If KeyCode = vbKeyshift And shift = vbshiftMask And (GetAsyncKeyState(VK_Lshift) And &H8000) Then MsgBox "you click the Left shift"
If KeyCode = vbKeyshift And shift = vbshiftMask And (GetAsyncKeyState(VK_Rshift) And &H8000) Then MsgBox "you click the RIGHT shift"
If KeyCode = vbKeyMenu And shift = vbAltMask And (GetAsyncKeyState(VK_LMENU) And &H8000) Then MsgBox "you click the Left Alt" ' only Alt was pressed
If KeyCode = vbKeyMenu And shift = vbAltMask And (GetAsyncKeyState(VK_RMENU) And &H8000) Then MsgBox "you click the RIGHT Alt" ' only Alt was pressed
If KeyCode = vbKeyControl And shift = vbCtrlMask And (GetAsyncKeyState(VK_LCtrl) And &H8000) Then MsgBox "you click the Left Ctrl"
If KeyCode = vbKeyControl And shift = vbCtrlMask And (GetAsyncKeyState(VK_RCtrl) And &H8000) Then MsgBox "you click the Right Ctrl"
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub