以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  QAT启动栏上能不能添加自定义的控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96255)

--  作者:nblwar
--  发布时间:2017/2/16 15:50:00
--  QAT启动栏上能不能添加自定义的控件
QAT启动栏上能不能添加自定义的控件
--  作者:有点蓝
--  发布时间:2017/2/16 16:00:00
--  
可以参考这个试试
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=76721

--  作者:nblwar
--  发布时间:2017/2/16 17:09:00
--  
---------------------------
版本:2016.7.29.1
---------------------------
代码执行出错,错误信息:



System.ArgumentException: 该集合不能包含此类型的项目:\\nC1.Win.C1Ribbon.RibbonControlHost.

参数名: value

   在 C1.Win.C1Ribbon.RibbonItemCollectionBase.OnValidate(Object value)

   在 C1.Win.C1Ribbon.RibbonItemCollectionBase.System.Collections.IList.Add(Object value)

   在 C1.Win.C1Ribbon.RibbonItemCollectionBase.Add(RibbonItem item)

   在 UserCode.Test()
---------------------------
确定   
---------------------------





代码

Dim a As New Windows.Forms.UserControl
a.name = "aaa"
\'a.Text = "123456789"
\'a.Font = New Font("宋体", 20)
a.BackColor = Color.Red

Dim b As New C1.Win.C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300

Dim r As C1.Win.C1Ribbon.C1Ribbon = Foxtable.BaseMainForm.Controls(3)
r.Qat.Items.Add(b)

--  作者:有点色
--  发布时间:2017/2/16 17:29:00
--  

 只能是添加菜单控件,自定义的不行。

 

Dim b As New RibbonMenu.Button("test") \'定义一个标准按钮
b.Text = "测试"
qat.Items.Add(b)