Dim b As New RibbonMenu.Button(dr("菜单组件名称"))
因为菜单控件有很多,所以我加了一个菜单组件类型,我如何替换
New RibbonMenu.Button
为dr("菜单组件类型")
select case dr("组件类型")
case "按钮"
Dim b As New RibbonMenu.Button(dr("组建名称")
case "文本框"
Dim b As New RibbonMenu.TextBox(dr("组建名称")
.....
end Select
Select Case dr("菜单组件类型")
Case dr("菜单组件名称")
Dim b As New RibbonMenu.Button(dr("菜单组件名称"))
b.Text= dr("菜单组件名称")
g.Items.Add(b)
Case dr("菜单组件名称")
Dim b As New RibbonMenu.TextBox(dr("菜单组件名称"))
b.Text= dr("菜单组件名称")
g.Items.Add(b)
End Select
我在表菜单组件的里面输入:
是这个RibbonMenu.Button 没有添加 加入 button也没有添加,应该写什么?
在菜单组件类型列输入按钮、文本框之类的。
Select Case dr("菜单组件类型")
Case "按钮"
Dim b As New RibbonMenu.Button(dr("菜单组件名称"))
b.Text= dr("菜单组件名称")
g.Items.Add(b)
Case "文本框"
Dim b As New RibbonMenu.TextBox(dr("菜单组件名称"))
b.Text= dr("菜单组件名称")
g.Items.Add(b)
End Select
[此贴子已经被作者于2011-8-16 15:56:40编辑过]
For Each dr As DataRow In DataTables("表A").DataRows
Dim gn As New RibbonMenu.Tab(dr("功能区"))
If RibbonTabs.Contains(dr("功能区")) Then
Dim g As New RibbonMenu.Group(dr("功能组"))
If RibbonTabs(dr("功能区")).Groups.Contains(dr("功能组"))Then
Select Case dr("菜单组件类型")
Case "按钮"
Dim b As New RibbonMenu.Button(dr("菜单组件名称"))
b.Text= dr("菜单组件名称")
g.Items.Add(b)
Case "文本框"
Dim b As New RibbonMenu.TextBox(dr("菜单组件名称"))
b.Text= dr("菜单组件名称")
g.Items.Add(b)
End Select
Else
g.Text = dr("功能组")
RibbonTabs(dr("功能区")).Groups.Add(g)
End If
Else
gn.Text = dr("功能区")
RibbonTabs.Add(gn)
End If
Next
我这个逻辑错在那儿,判断如果功能区在,就加载功能组,如果功能组在就加载控件,但是功能区和功能组都行,控件不行.
输入的时候，按顺序，功能区在前面，然后是功能组，然后是各个按钮。