生成菜单问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim btn As RibbonMenu.ToggleButton
btn = RibbonTabs("Common").Groups("SortAndFilter").Items("Toggle")
btn.Text = "切换筛选"
btn.LargeImage = GetImage("Filter32.ico")

如果图标在images下属路径，btn.LargeImage = GetImage("Filter32.ico")的相对路径如何写？

[此贴子已经被作者于2019/1/15 18:38:22编辑过]

btn.LargeImage = GetImage(ProjectPath & "images\aa\bb\Filter32.ico")

现在需要生成的菜单的名称和标题不一样，代码如何写？

如菜单名称为编辑，菜单的标题为edit.

菜单控件.text = "edit"

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编辑过]

nmenu.text = dr("菜单标题")

最终的目标是菜单名称和菜单标题是不一样的，如何设置？

Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf

红色部分就是设置菜单名称，16楼是设置菜单标题

主题：生成菜单问题