请教如何用SendMessage向窗体发送键盘信息，比如我想发送一个组合键：ctrl+x，请教如何进行？

Question

用WM_KEYDOWN发送Ctrl按下
用WM_KEYDOWN发送x按下
用WM_KEYUP发送x释放
用WM_KEYUP发送Ctrl释放

Answer 1

我初次接触API,能帮我写个例句吗？十分感谢。

Answer 2

SendMessage hWnd, WM_KEYDOWN, VK_CONTROL, ByVal 0&
SendMessage hWnd, WM_KEYDOWN, VK_X, ByVal 0&
SendMessage hWnd, WM_KEYUP, VK_X, ByVal 0&
SendMessage hWnd, WM_KEYUP, VK_CONTROL, ByVal 0&
（注意声明常数）

Answer 3

Private Sub Command3_Click()SendMessage Me.hwnd, WM_KEYDOWN, VK_CONTROL, ByVal 0&
SendMessage Me.hwnd, WM_KEYDOWN, VK_X, ByVal 0&
SendMessage Me.hwnd, WM_KEYUP, VK_X, ByVal 0&
SendMessage Me.hwnd, WM_KEYUP, VK_CONTROL, ByVal 0&End SubPrivate Sub sdf_Click()
Text1.Text = "abc" '我随意设的菜单，快捷键为ctrl+x
End Sub这样发送但好象没用，请教是何缘因？，

Answer 4

我在模块里如此声明：Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long