以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于Tree 中的一些问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10572)
--  作者：kgd815
--  发布时间：2011/6/12 23:08:00
--  关于Tree 中的一些问题

打开窗口后就执行

Dim TV As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim N As WinForm.TreeNode
Dim N1 As WinForm.TreeNode
Dim N2 As WinForm.TreeNode
Dim N3 As WinForm.TreeNode

N=TV.Nodes.Add ("BOOT","系统菜单")
n.Checked= True
For Each T As RibbonMenu.Tab In RibbonTabs
    N1=N.Nodes.Add(t.Name,t.Text)

    N1.CHECKED=TRUE
    For Each G As RibbonMenu.Group In T.Groups
        N2=N1.Nodes.Add(G.Name,G.Text)

        N2.CHECKED=TRUE
        For Each C As RibbonMenu.RibbonItem In G.Items
            If C.ToolTip<>""
                N3=N2.Nodes.Add(C.Name,C.ToolTip)

                N3.CHECKED=TRUE
            End If
        Next
    Next
Next

TV.ExpandAll

 

但是，打开窗口根本看不到，程序就没了，不知什么原因
--  作者：狐狸爸爸
--  发布时间：2011/6/13 7:45:00
--  
代码看不出问题，做个简单例子上来。