Question

求 VB ListBox 单击 事件。

求 VB ListBox 单击 事件。

Private Sub List1_Click()
'这个是鼠标单击控件项目才会执行

’如何写单击 List1 控件本体的事件？
’还有双击 List1 控件本体的事件？

Answer 1

可以用：MouseDown、MouseUp实现List1 控件本体的单击事件。
如：
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
...
End If
End Sub

如果一定要用双击实现一项目功能的话，可以用MouseDown、MouseUp的右击实现。
If Button = vbRightButton Then