可以改变菜单标准按钮，字体颜色么？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可以改变菜单标准按钮，字体颜色么？

共有1695人关注过本帖树形打印复制链接主题：可以改变菜单标准按钮，字体颜色么？

zhangjian222200

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1553 积分：11003 威望：0 精华：0 注册：2016/9/12 11:18:00

可以改变菜单标准按钮，字体颜色么？ 发帖心情

Post By：2017/1/18 10:39:00 [只看该作者]

可以改变菜单标准按钮，字体颜色么？

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/18 11:12:00 [只看该作者]

可以，参考

Dim r As object = BaseMainForm.controls("C1Ribbon1")
Dim btn As object = r.Tabs("Other").Groups("Execute").Items("SQLExecute")
btn.Font = New Font("宋体", 11)
btn.ForeColorInner = Color.Red

zhangjian222200

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1553 积分：11003 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2017/1/18 16:34:00 [只看该作者]

我把这段代码写在，项目事件，afteropenproject，提示：（放在菜单编辑器里面，提示也是这样）

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2016.7.29.1

错误所在事件：项目,AfterOpenProject

详细错误信息：

未设置对象变量或 With 块变量。

Dim r As object = BaseMainForm.controls("查看所有男生")

Dim btn As object = r.RibbonTabs("男生资料管理").Groups("男生资料管理").Items("查看所有男生")

btn.Font = New Font("宋体", 10)

btn.ForeColorInner = Color.Red

[此贴子已经被作者于2017/1/18 16:35:31编辑过]

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/18 16:46:00 [只看该作者]

Dim r As object = BaseMainForm.controls("C1Ribbon1")
Dim btn As object = r.Tabs("男生资料管理").Groups("男生资料管理").Items("查看所有男生")
btn.Font = New Font("宋体", 11)
btn.ForeColorInner = Color.Red

下一主题 >> << 上一主题

主题：可以改变菜单标准按钮，字体颜色么？