如何判断treeview中是否有节点被选中？

Question

如果遍历treeview的所有节点，依次判断它们是否被选中效率太低了，有没有直接判断的语句？

Answer 1

Private Sub Command1_Click()
    If Not TreeView1.SelectedItem Is Nothing Then
        MsgBox "选中的节点名为：" & TreeView1.SelectedItem.Text
    End If
End SubPrivate Sub Form_Load()
    TreeView1.Nodes.Add , , , "AAA"
    TreeView1.Nodes.Add , , , "BBB"
End Sub

Answer 2

Set Node = TreeView1.HitTest(x, y)   '如果在指定的座標上沒有物件，則 HitTest 方法將傳回 Nothing
   
   If Node Is Nothing Then Exit Sub