Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each n As WinForm.TreeNode In trv.Nodes
n.Expand
For Each n1 As WinForm.TreeNode In n.Nodes
n.Expand
Next
Next
或
Dim lv As Integer = 0
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each n As WinForm.TreeNode In trv.AllNodes
If n.Level <= lv
n.Expand
End If
Next
还可以使用递归实现吗,自己思考一下