如何遍历treeview中的某一节点的子节点

Question

for i=0 to treeview.nodes.count-1
     msgobx treeview.nodex.item(i).text & treeview.nodex.item(i).key
next imsg:the nodes.children and nodes.child you can use this

Answer 1

FirstSibling
LastSibling
Next
Previous
這些屬性知道怎么用了巴

Answer 2

一个节点下面的所有节点的FULLPATH的前面部份必定是这个“母”节点的FULLPATH。从这一点可以用一个循环得到。

Answer 3

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
    Dim m_Node As Node
'On Error Resume Next
    If Not (Node.Parent Is Nothing) Then
        If Node.Checked = True Then
            Node.Parent.Checked = True
        End If
    End If
    If Node.Children > 0 And Node.Checked = True Then
        Node.Expanded = True
        Node.EnsureVisible
        Set m_Node = Node.Child
        Set m_Node = m_Node.FirstSibling
        m_Node.Checked = True
        Do While Not (m_Node Is Nothing)
            Set m_Node = m_Node.Next
            If Not (m_Node Is Nothing) Then
                m_Node.Checked = True
            End If
        Loop
    ElseIf Node.Children > 0 And Node.Checked = False Then
        Node.Expanded = False
        Node.EnsureVisible
        Set m_Node = Node.Child
        Set m_Node = m_Node.FirstSibling
        m_Node.Checked = False
        Do While Not (m_Node Is Nothing)
            Set m_Node = m_Node.Next
            If Not (m_Node Is Nothing) Then
                m_Node.Checked = False
            End If
        Loop
    End If
End Sub

Answer 4

给分方法：http://www.csdn.net/help/over.asp