主题：动态生成菜单

Dim b As New RibbonMenu.Button(dr("菜单组件名称"))  

因为菜单控件有很多,所以我加了一个菜单组件类型,我如何替换

 New RibbonMenu.Button

为dr("菜单组件类型")

 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也没有添加,应该写什么?

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

我这个逻辑错在那儿,判断如果功能区在,就加载功能组,如果功能组在就加载控件,但是功能区和功能组都行,控件不行.