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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

通达代码生成的菜单这什么达不到这样的效果

此主题相关图片如下：无标题.png

[此贴子已经被作者于2019/1/15 8:34:24编辑过]

代码与1楼没有区别呀

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生成菜单(1).table

如何让增加的标准按钮水平排列？

此主题相关图片如下：无标题.png

[此贴子已经被作者于2019/1/15 13:54:51编辑过]

点新增，可以执行代码；如果点人事，也执行某代码，3楼项目的代码如何设置？

此主题相关图片如下：无标题.png

[此贴子已经被作者于2019/1/15 15:48:17编辑过]

如何用代码设置大图标？

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

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

如菜单名称为编辑，菜单的标题为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编辑过]

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

主题：生成菜单问题