以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态生成菜单的问题(封贴)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26405)
--  作者：blackzhu
--  发布时间：2012/12/3 13:57:00
--  动态生成菜单的问题(封贴)
Dim drs As List(Of DataRow)
drs = DataTables("功能导航").Select("[权限部门] like \'*" & _UserGroup & "\'","序号")
\'RibbonTabs.Clear
For Each dr As DataRow In drs
    Dim gn As New RibbonMenu.Tab(dr("区"))
    If  RibbonTabs.Contains(dr("区")) Then
        e.Cancel=True
    Else
        gn.Text = dr("区")
        RibbonTabs.Add(gn)
    End If
    Dim g As New RibbonMenu.Group(dr("组"))
    g.Text = dr("组")
    RibbonTabs(dr("区")).Groups.Add(g)
    Select Case dr("标题")
        Case "按钮"
            Dim b As New RibbonMenu.Button(dr("标题"))
            b.Text = dr("标题")
            b.LargeImage = GetImage(ProjectPath & "Images\\" & dr("图标"))
            b.TextImageRelation = TextImageRelationEnum.ImageAboveText
            g.Items.Add(b)
    End Select
Next

  按钮好像没有生成,看看是怎么回事?以前成功!
[此贴子已经被作者于2012-12-3 14:13:01编辑过]
--  作者：blackzhu
--  发布时间：2012/12/3 14:13:00
--  
明白了,成功了!
--  作者：sgs
--  发布时间：2012/12/3 14:17:00
--  

这段命令放在哪里？

    If  RibbonTabs.Contains(dr("区")) Then
        e.Cancel=True
    Else

哪个控件的cancel属性