如何判断TreeView1中的Node是否存在？

Question

If Not TreeView1.Nodes(strNodeKey) Is Nothing Then
       TreeView1.Nodes(strNodeKey).Selected = True
End If
如果TreeView1中没有Key为strNodeKey的Node,那么判断的时候就报错，如何判断TreeView1中Key为strNodeKey的Node是否存在？

Answer 1

你先判断下TreeView1.Nodes(strNodeKey)是不是Nothing然后再获取它的内容。

Answer 2

On Error GoTo err_Exit
If Not tv.Nodes(strNodeKey) Is Nothing Then
       tv.Nodes(strNodeKey).Selected = True
End IfExit Suberr_Exit:
      If Err.Number = 35601 Then
            MsgBox "ERR"
            Exit Sub
      End If

Answer 3

Public Function ItemExists(ByRef tvw As TreeView, ByVal Index As Variant) As Boolean
    
    On Error Resume Next
    
    Dim oNode   As Node
    
    Set oNode = tvw.Nodes(Index)
    ItemExists = (Err.Number = 0)
    
End Function