以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个菜单代码有何错误?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128835)

--  作者:susu312
--  发布时间:2018/12/16 11:34:00
--  这个菜单代码有何错误?

Select Case e.Sender.Name
    Case "首页"
        Forms("首页").open()
        MainTable = Tables("person")

        一、想设置点击首页时,那个图标的高度高一点
        \'Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("首页")
        \'a.height = 55

       二、想设置点击首页时,首页功能区时XXX系统的一张图片
        \'\'Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("首页"),C1Ribbon.C1Ribbon )
        \'Dim a As New Windows.Forms.picturebox
        \'a.image = getimage("d:\\test.png")
        \'Dim b As New C1Ribbon.RibbonControlHost(a)
        \'b.name = "自定义项1"
        \'b.width = 300
        \'C1Ribbon1.tabs("功能区").Groups("功能组1").Items.Add(b)

 

 

以上两段代码分别添加后,都报错,对象没有添加到对象实例上?不太懂,请老师指点下



--  作者:有点甜
--  发布时间:2018/12/16 20:49:00
--  

1、【那个图标的高度】,是指哪里?截图说明一下;

 

2、添加图片的代码,应该写到afterOpenProject事件,才行。代码改成(红色的才需要改)

 

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.picturebox
a.image = getimage("d:\\test.jpg")
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("功能区1").Groups("功能组1").Items.Add(b)


--  作者:susu312
--  发布时间:2018/12/16 22:33:00
--  
以下是引用有点甜在2018/12/16 20:49:00的发言:

1、【那个图标的高度】,是指哪里?截图说明一下;

 

2、添加图片的代码,应该写到afterOpenProject事件,才行。代码改成(红色的才需要改)

 

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.picturebox
a.image = getimage("d:\\test.jpg")
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("功能区1").Groups("功能组1").Items.Add(b)

 

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 

1、如上图所示,图标的高度是指,我在首页的功能组中放一个标准按钮,然后按钮的图标是XXX系统,但是这个图标没有完全填充这个功能组,尤其是距离上面还有一点点缝隙

2、2的方法也是在首页的功能组中添加一个图片,也无法完全填充功能组,本质上还相当于按钮? 我测试结果如上图所示,不知是我理解的是否对,请老师指点


--  作者:有点甜
--  发布时间:2018/12/16 23:05:00
--  

1、不可能有这么大的间隔的,单独做一个实例发上来测试;

 

2、是的。