主题：[求助]动态菜单问题

参考代码

Dim Code As String = ""
Code = "Dim menu As New RibbonMenu.ComboBox(""test"")" & vbcrlf
Code = Code & "Return menu"

Functions.Add("CreateMenu", Code)
Functions.Complie()

Dim nmenu = Functions.Execute("CreateMenu")
Dim b As New RibbonMenu.Button("abc")
b.Text = "abc"
nmenu.items.add(b)

你根本就没有看懂代码。要new一个对象，才能add进去啊

Dim b As New RibbonMenu.Button("abc")
b.Text = "abc"
nmenu.items.add(b)

1、请上传具体事例测试。

2、不能写 RibbonTabs.Clear。

3、默认字指什么？

看懂下面的代码啊

LockBaseMainForm() '锁定主窗口
Syscmd.Project.OpenUserMenu()
RibbonTabs.Clear
Dim dt As DataTable = DataTables("A0_菜单表")
For Each dr As DataRow In dt.DataRows
    Select Case dr("类型")
        Case "功能区"
            Dim ntab As RibbonMenu.Tab
            Dim ngrp As RibbonMenu.Group
            Dim nmenu As Object
            If RibbonTabs.Contains(dr("功能区")) Then
                ntab = RibbonTabs(dr("功能区"))
            Else
                ntab = New RibbonMenu.Tab(dr("功能区"))
                RibbonTabs.Add(ntab)
            End If
           
            If ntab.Groups.Contains(dr("功能组")) Then
                ngrp = ntab.Groups(dr("功能组"))
            Else
                ngrp = New RibbonMenu.Group(dr("功能组"))
                ntab.Groups.Add(ngrp)
            End If
           
            '编译一个生成不同菜单的函数
            Functions.Remove("CreateMenu")
            Dim Code As String = ""
            Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
            Code = Code & "Return menu"
           
            Functions.Add("CreateMenu", Code)
            Functions.Complie()
           
            nmenu = Functions.Execute("CreateMenu")
            ntab.Text = dr("功能区")
            ngrp.Text = dr("功能组")
            nmenu.Text = dr("菜单标题")
            Select Case dr("菜单类型")
                Case "RibbonMenu.Button"
                    If dr.IsNull("图片排列") = False Then
                        nmenu.LargeImage =GetImage(dr("图片名称") & ".png")
                        nmenu.TextImageRelation = 1
                    End If
                Case "RibbonMenu.ComboBox"
                    For Each cl As String In DataTables("A0_菜单表").GetComboListString("功能区").Split("|")
                        Dim b As New RibbonMenu.Button(cl)
                        b.text = cl
                        nmenu.Items.add(b)
                    Next
                    nmenu.Text = ""
            End Select
            ngrp.Items.Add(nmenu)   '加入菜单
    End Select
Next
UnLockBaseMainForm() '解锁主窗口