1,451
社区成员
发帖
与我相关
我的任务
分享
'上面的是声明部分.只有声明了,才可以使用..
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Sub Command1_Click()
PostMessage Command2.hwnd, WM_LBUTTONDOWN, 0&, 0&
PostMessage Command2.hwnd, WM_LBUTTONUP, 0&, 0&
End Sub
Private Sub Command2_Click()
msgbox "ok"
End Sub