Question

VB 如何写 单击 ListBox 控件的事件，不是项目的事件。

Private Sub List1_Click()

’这个只能写单击项目时的事件。
’我想要单击控件整体的事件。
’还有双击控件整体的事件。

Answer 1

单击控件整体可以用MouseUp事件：
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Debug.Print "你单击了List1"
End Sub

双击控件整体没有直接的事件，可以通过程序模拟：
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static t As Single
If Button = 1 Then
If Timer - t > 0.5 Then
t = Timer
Else
Debug.Print "你双击了List1"
t = 0
End If
End If
End Sub

Answer 2

单击的话可以用MouseDown事件来实现