如何将窗口菜单遍历创建成目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

蓝总：Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

tv.Nodes.Clear

tv.Nodes.Add("主菜单")

For Each rtb As Winform.Strip In Forms("主窗口").Strips

If tv.Nodes("主菜单").Nodes.Contains(rtb.Name) = False

tv.Nodes("主菜单").Nodes.Add(rtb.Name)

End If

For Each grp As WinForm.StripItem In Forms("主窗口").Strips("主菜单").Items

If tv.Nodes("主菜单").Nodes(rtb.Name).Nodes.Contains(grp.Name) = False Then

tv.Nodes("主菜单").Nodes(rtb.Name).Nodes.Add(grp.Name)

End If

For Each itm As WinForm.StripItem In Forms("主窗口").Strips("主菜单").Items.Items

If tv.Nodes("主菜单").Nodes(rtb.Name).Nodes(grp.Name).Nodes.Contains(itm.Name) = False Then

tv.Nodes("主菜单").Nodes(rtb.Name).Nodes(grp.Name).Nodes.Add(itm.Name)

End If

没有功能区好搞，请老总指点

主题：如何将窗口菜单遍历创建成目录树