有写字本程序。其句柄为1.txt - 记事本 写的程序如下 Private Sub Command1_Click() Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "1.txt - 记事本") If winHwnd <> 0 Then RetVal = SendMessage(winHwnd, WM_RBUTTONDOWN, 0, 0) If RetVal = 0 Then 'MsgBox "置入消息错误!" End If Else MsgBox "没有打开!" End If End Sub 为什么老是说置入消息错误。。还有。不会发出右键按下的消息。写字本没反应. wm_rbuttondown已经定义了const
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "1.txt - 记事本")
If winHwnd <> 0 Then
RetVal = SendMessage(winHwnd, WM_RBUTTONDOWN, 0, 0)
If RetVal = 0 Then
'MsgBox "置入消息错误!"
End If
Else
MsgBox "没有打开!"
End If
End Sub
为什么老是说置入消息错误。。还有。不会发出右键按下的消息。写字本没反应.
wm_rbuttondown已经定义了const
====================
你的鼠标右键还没有up上来。