Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim mnode As Node Set mnode = Me.TreeView1.HitTest(x, y) If ObjPtr(mnode) = 0 Then MsgBox "在空白处点击" Else mnode.Selected = True MsgBox mnode.Text End If End Sub
直接 If mnode Is Nothing Then 就可以了,乱玩花样
TreeView 有 NodeClick 事件的:Private Sub tvList_NodeClick(ByVal Node As MSComctlLib.Node) msgbox node.key,vbinfomation End Sub
Dim mnode As Node
Set mnode = Me.TreeView1.HitTest(x, y)
If ObjPtr(mnode) = 0 Then
MsgBox "在空白处点击"
Else
mnode.Selected = True
MsgBox mnode.Text
End If
End Sub
msgbox node.key,vbinfomation
End Sub