以文本方式查看主题

-  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
--  
甜老师,如何将功能区的高度调高呢??