treeview问题，checkboxs的运用

遍历一下子节点就可以了。.NET用起来更方便
' 统一节点下面的数据
Private Sub TreeView1_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterCheck
ToggleAllNode(e.Node, e.Node.Checked)
End Sub

' 使得当前节点下面的所有子介点的Ｃｈｅｃｋｂｏｘ与当前节点一直。
Private Sub ToggleAllNode(ByVal CurrentNode As TreeNode, ByVal bChecked As Boolean)
Dim mNodes As TreeNodeCollection
If (Not CurrentNode Is Nothing) Then
mNodes = CurrentNode.Nodes
If (Not mNodes Is Nothing) Then
'遍历
Dim ie As IEnumerator = mNodes.GetEnumerator
While ie.MoveNext
CType(ie.Current, TreeNode).Checked = bChecked
ToggleAllNode(CType(ie.Current, TreeNode), bChecked)
End While
End If
End If
End Sub