鼠标点击listview空白处的时候。任何 item 都没有焦点。

Question

Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nodX As Object
If Button = 1 Then Set nodX = TreeView1.HitTest(x, y)
End Sub是你想要的效果吗？

Answer 1

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim ItemX As ListItem
    Set ItemX = ListView1.HitTest(x, y)
    If ItemX Is Nothing Then
        Set ListView1.SelectedItem = Nothing
    End If
End Sub