- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教：如何设置菜单中“组合框”为不能直接输入？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74159)
-- 发布时间：2015/9/4 19:59:00
-- 请教：如何设置菜单中“组合框”为不能直接输入？
如题，谢谢。
-- 发布时间：2015/9/4 22:49:00
--
Dim b As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
Dim cb As C1Ribbon.RibbonComboBox = b.Tabs("功能区1").Groups("功能组1").Items("组合框1")
cb.DropDownStyle = 1
-- 发布时间：2015/9/4 23:05:00
--
谢谢。但有以下提示，未通过，请再帮忙。
---------------------------
错误
---------------------------
编译错误:类“C1.Win.C1Ribbon.RibbonTab”没有默认属性，因此无法被索引。
错误代码：Dim cb As C1Ribbon.RibbonComboBox= b.Tabs("Common")("sjjh")("工具栏1")("xlsbm")
---------------------------
确定
---------------------------
-- 发布时间：2015/9/4 23:13:00
--
你获取的格式不对
可以在命令窗口直接获取菜单的路径
如 Dim 变量名 As RibbonMenu.ComboBox = RibbonTabs("功能区1").Groups("功能组1").Items("组合框1")
然后把最前面的RibbonTabs改成 b.Tabs
-- 发布时间：2015/9/5 8:43:00
--
请“逛逛”再看看，组合框是放在“工具栏”的，以下代码提示错误。
\'只能下拉选择(单击打开下拉列表)
Dim b As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
Dim cb As C1Ribbon.RibbonComboBox = b.Tabs("功能区1").Groups("功能组1").Items("工具栏1").Items("组合框1")
cb.DropDownStyle = 1
提示：---------------------------
错误
---------------------------
编译错误:“Items”不是“C1.Win.C1Ribbon.RibbonItem”的成员。
错误代码：Dim cb As C1Ribbon.RibbonComboBox = b.Tabs("功能区1").Groups("功能组1").Items("工具栏1").Items("组合框1")
---------------------------
确定
---------------------------
-- 发布时间：2015/9/5 8:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
-- 发布时间：2015/9/5 9:43:00
--
Dim b As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
Dim t As C1Ribbon.RibbonToolBar = b.Tabs("功能区1").Groups("功能组2").Items("工具栏1") \'先取到工具栏
Dim cb As C1Ribbon.RibbonComboBox = t. Items("组合框2")
cb.DropDownStyle = 1
-- 发布时间：2015/9/5 10:39:00
--
