先排序在添加,函数的用法参考自己做
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
nd = trv.Nodes.Add("全部按钮","全部按钮")
Dim tb As WinForm.NavBar = Forms("导航").Controls("NavBar1")
Dim pg As WinForm.NavPage
Dim lst As new List(of String)
Dim dict As new Dictionary(of String, WinForm.Control)
For Each pg In tb.NavPages
lst.add(pg.name)
dict.Add(pg.name,pg)
Next
Dim arr = lst.ToArray
Array.Sort(arr)
For i As Integer = 0 To lst.Count - 1
Dim n = nd.nodes.add(arr(i))
If dict(arr(i)).Children.Count > 0 Then Functions.Execute("AddChild",n,dict(arr(i)))
Next