高手回答，必给分

Question

为什么下列程序中，点了COMMAND1后，没有弹出“HI”？？？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 WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202Private Sub Command1_Click()
a = SendMessage(Command2.hwnd, WM_LBUTTONDOWN, 0, 0)
b = SendMessage(Command2.hwnd, WM_LBUTTONUP, 0, 0)
End SubPrivate Sub Command2_Click()
MsgBox "hi"
End Sub

Answer 1

你的事件发送的不对,应该发送CLICK事件,发一个按下和一个抬起的事件,并不等于CLICK事件啊~~~

Answer 2

Private Sub Command1_Click()
    Call SendMessage(Command2.hwnd, WM_LBUTTONDOWN, 0, 0)
End SubPrivate Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "hi"
End Sub

Answer 3

Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "down"
End SubPrivate Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "up"
End Sub