Question

如何在LISTBOX中移动鼠标就可以起到CLICK的作用

Answer 1

下面用两种方法分别一试：方法1�0�2 Sendmessage 向LISTBOX发送消息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 LB_ITEMFROMPOINT = &H1A9 Private Sub Form_Load() Dim i As Byte For i = 1 To 20 List1.AddItem String(i, Chr(i + 64))NextEnd SubPrivate Sub List1_Click() '随时看到效果 Me.Caption = "The listitem you select is """ & List1.Text & """" End SubPrivate Sub List1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lX As Long, lY As Long, lIndex As Long �0�2�0�2�0�2�0�2�0�2�0�2�0�2 lX = CLng(X / Screen.TwipsPerPixelX) �0�2�0�2�0�2�0�2�0�2�0�2�0�2 lY = CLng(Y / Screen.TwipsPerPixelY) �0�2�0�2�0�2�0�2�0�2�0�2�0�2 lIndex = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lY * &H10000) + lX)) If lIndex >= 0 And lIndex <= List1.ListCount Then List1.Selected(lIndex) = True End Sub方法2�0�2 模拟鼠标左键单击Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Const MOUSEEVENTF_ABSOLUTE = &H8000Private Sub Form_Load() Dim i As Byte For i = 1 To 20 List1.AddItem String(i, Chr(i + 64))NextEnd SubPrivate Sub List1_Click() '随时看到效果 Me.Caption = "The listitem you select is """ & List1.Text & """" End SubPrivate Sub List1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)