|
Dim node As WinForm.TreeNode = Args(0)
Dim ctl = Args(1)
For Each c As object In ctl.Children
If Typeof c Is WinForm.SplitContainer Then
If c.panel1.Children.Count > 0 Then Functions.Execute("AddChild",node,c.panel1)
If c.panel2.Children.Count > 0 Then Functions.Execute("AddChild",node,c.panel2)
Else
Dim n = node.Nodes.Add(c.Name)
If Typeof c Is WinForm.Panel OrElse Typeof c Is WinForm.GroupBox Then
If c.Children.Count > 0 Then Functions.Execute("AddChild",n,c)
End If
End If
Next
|
加好友 
发短信
Post By：2016/5/25 9:24:00 [显示全部帖子]
