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.name = dr("菜单标题")
nmenu.Text = dr("菜单标题") & 1
If dr("图标")<>Nothing
nmenu.LargeImage = GetImage(dr("图标"))
End If
ngrp.Items.Add(nmenu) '加入菜单
提示 nmenu.name = dr("菜单标题") 有错误。
[此贴子已经被作者于2019/1/18 15:29:07编辑过]