如题,谢谢~``

解决方案 »

  1.   

    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
      

  2.   

    直接 If mnode Is Nothing Then 就可以了,乱玩花样
      

  3.   

    TreeView 有 NodeClick 事件的:Private Sub tvList_NodeClick(ByVal Node As MSComctlLib.Node)
     msgbox node.key,vbinfomation
    End Sub