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

[shuzzz]

我想实现复选一个节点时，其子节点均被选中。
注意节点的key没有命名的规律！

[shawls]

for i=0 to treeview.nodes.count-1
msgobx treeview.nodex.item(i).text & treeview.nodex.item(i).key
next i

msg:the nodes.children and nodes.child you can use this

[thorkhan]

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

[tonton]

一个节点下面的所有节点的FULLPATH的前面部份必定是这个“母”节点的FULLPATH。

从这一点可以用一个循环得到。

[烨炜带火]

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

[shuzzz]

我该如何给分！

[288794]

点击"管理"

[zyl910]

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