69,382
社区成员
发帖
与我相关
我的任务
分享
代码如下: 发送一 keydown 消息 ,若keyup 则更换之
Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA " (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const VK_F6 = &H75
Private Const WM_KEYDOWN = &H100
Private Sub Command1_Click()
SendMessage Me.hwnd, WM_KEYDOWN, VK_F6, 0
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF6 Then
MsgBox "Ok "
End If
End Sub