| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]菜单设计中功能组的字体和颜色如何修改？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107451) |
| -- 作者：狐说八道 -- 发布时间：2017/9/28 11:29:00 -- [求助]菜单设计中功能组的字体和颜色如何修改？？ 如题 |
| -- 作者：有点甜 -- 发布时间：2017/9/28 12:38:00 -- Dim r As object = BaseMainForm.controls("C1Ribbon1") Dim btn As object = r.Tabs("Other").Groups("Execute") btn.Font = New Font("宋体", 11) btn.ForeColorInner = Color.Red btn.ForeColorOuter = Color.Red |
| -- 作者：狐说八道 -- 发布时间：2017/9/28 15:41:00 -- 谢谢甜老师 顺便再问一个问题，可以将WebBrowser控件添加到功能组中？？或者说怎样可以将网页的内容显示在功能组中？？
|
| -- 作者：有点甜 -- 发布时间：2017/9/28 15:45:00 -- Dim C1Ribbon1 As C1Ribbon.C1Ribbon = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon ) Dim w As New Windows.Forms.webbrowser w.navigate("www.foxtable.com") Dim b As New C1Ribbon.RibbonControlHost(w) b.name = "测试" b.width = 300 C1Ribbon1.tabs("Other").Groups("Execute").Items.Add(b) |
| -- 作者：狐说八道 -- 发布时间：2017/9/28 16:45:00 -- 甜老师，如果我要将网址改成本地的一个HTML文件要怎么改呢？？ |
| -- 作者：有点甜 -- 发布时间：2017/9/28 16:48:00 -- Dim C1Ribbon1 As C1Ribbon.C1Ribbon = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon ) Dim w As New Windows.Forms.webbrowser w.navigate("d:\\test.htm") Dim b As New C1Ribbon.RibbonControlHost(w) b.name = "测试" b.width = 300 C1Ribbon1.tabs("Other").Groups("Execute").Items.Add(b) |
| -- 作者：狐说八道 -- 发布时间：2017/9/28 16:55:00 -- 甜老师，发布之后每个人的路径就不一样了啊 |
| -- 作者：有点甜 -- 发布时间：2017/9/28 17:03:00 -- 以下是引用狐说八道在2017/9/28 16:55:00的发言：
甜老师，发布之后每个人的路径就不一样了啊
用相对路径
w.navigate(projectPath & "test.htm") |
| -- 作者：狐说八道 -- 发布时间：2017/9/28 17:07:00 -- 谢谢甜老师 |
| -- 作者：狐说八道 -- 发布时间：2017/9/29 9:39:00 -- 甜老师，如何将功能区的高度调高呢？？ |