如何用VB中的API函数实现模拟一次鼠标双击事件！

Question

谢谢！

Answer 1

没有人会吗？那我再问一个别的问题，我怎么知道我机子上安装了某个应用程序比如word，如果安装，我想打开word并装入某个文档，不要通过OLE，谢谢

Answer 2

第一个，mouse_event
第二个论坛上有类似的

Answer 3

用楼上说得可以模拟任何鼠标事件，第二个可以用vba来实现。

Answer 4

1 模拟双击
Option Explicit
Private Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Const WM_LBUTTONDBLCLK = &H203
Private Sub Form_Click()
Debug.Print "this is a single click"
End SubPrivate Sub Form_DblClick()
MsgBox "this is a double click"
End SubPrivate Sub Form_Load()
SendMessageByNum Me.hwnd, WM_LBUTTONDBLCLK, 0, 0
End Sub

Answer 5

2 用默认的文件关联应用程序打开某个文件
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "open", "c:\test.doc", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub