现在是用自己建立的 ListView 做实验
hList= Me.ListView1.Handle.ToInt32
PostMessage(hList, WM_LBUTTONDBLCLK, MK_LBUTTON, 0)
PostMessage(hList, WM_LBUTTONUP, 0, 0)
这样 ListView1 不会触发双击事件 Sendmessage,PostMessage 这两个我都用过了,并且发送成功,但ListView1就是不会触发双击事件如果把鼠标移动到任意一项上 ListView1 能触发双击事件
请问:怎样才可以不移动鼠标就让ListView1触发双击事件?
hList= Me.ListView1.Handle.ToInt32
PostMessage(hList, WM_LBUTTONDBLCLK, MK_LBUTTON, 0)
PostMessage(hList, WM_LBUTTONUP, 0, 0)
这样 ListView1 不会触发双击事件 Sendmessage,PostMessage 这两个我都用过了,并且发送成功,但ListView1就是不会触发双击事件如果把鼠标移动到任意一项上 ListView1 能触发双击事件
请问:怎样才可以不移动鼠标就让ListView1触发双击事件?
Option Explicit
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_LBUTTONDBLCLK = &H203Private Sub Command1_Click()
Dim lngP As Long
Dim hList As Long hList = ListView1.hwnd
lngP = PostMessage(hList, WM_LBUTTONDBLCLK, 0&, 0&)End SubPrivate Sub ListView1_DblClick()
Me.Caption = "发生双击"
End Sub