1、
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim a As WinForm.TreeNode = trv.Nodes(0)
Dim b As WinForm.TreeNode = a.Nodes(0)
Dim c As WinForm.TreeNode = b.Nodes(0)
b.Nodes.Remove(c)
a.basenode.Nodes.Add(c.basenode)
2、
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim a As WinForm.TreeNode = trv.Nodes(0)
Dim b As WinForm.TreeNode = a.Nodes(0)
Dim c As WinForm.TreeNode = b.Nodes(0)
b.Nodes.Remove(c)
Dim c1 As WinForm.TreeNode = a.Nodes.Add(c.Name,c.Text)
For Each c2 As WinForm.TreeNode In c.Nodes
c1.Nodes.Add(c1.Name,c2.Text)
Next
加好友 
发短信
Post By：2017/6/17 15:16:00 [显示全部帖子]
