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编辑过]
加好友 
发短信
Post By：2012/12/3 13:57:00 [只看该作者]
