| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 菜单中组合框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70688) |
| -- 作者：yongxuanchen -- 发布时间：2015/6/26 13:40:00 -- 菜单中组合框 在菜单中，工具栏中的组合框如何设置下拉的默认值，在对话框中可以使用，但在菜单中不知道怎么设置？ |
| -- 作者：Bin -- 发布时间：2015/6/26 14:11:00 -- 设置其.Value属性即可. 为其Value赋值即可. |
| -- 作者：yongxuanchen -- 发布时间：2015/6/26 14:50:00 -- 你好 能否具体一点怎么设置，我在其属性对话框中没找到.vale值，谢谢 |
| -- 作者：Bin -- 发布时间：2015/6/26 14:52:00 -- 直接 用就可以了.没有智能提示不用管 |
| -- 作者：yongxuanchen -- 发布时间：2015/6/26 15:04:00 -- 自定义 你好，我是想问能不能实现组合框中的自定义的功能。我在菜单中不知道怎么能设置，麻烦你能不能详细介绍一下，我基本尝试了该属性框中的功能都没找到自定义的功能。 是不是需要代码？使用增加标签可以实现下拉，但是不能显示成文本，谢谢！
|
| -- 作者：大红袍 -- 发布时间：2015/6/26 15:14:00 -- 组合框，必须添加控件，才能显示下拉。
或者你参考 http://www.foxtable.com/help/topics/1134.htm
|
| -- 作者：yongxuanchen -- 发布时间：2015/6/26 17:29:00 -- 继续问 哦，那么如果我添加了标签控件，怎么样能使标签的文本变成组合框的文本，因为我是一个搜索功能来的，需要选定几个特定的值。收索代码如下： Dim txt1 As String = RibbonTabs("电梯制造资料信息录入").Groups("对应设备搜索").Items("搜索").Items("筛选").Text Dim tbl As Table = Tables("电梯信息表") If txt1="规格型号" Then txt = "\'*" & txt & "*\'" tbl.Filter = "规格型号 Like " & txt Else If txt1="" Then txt = "\'*" & txt & "*\'" tbl.Filter = "出厂编号 Like " & txt & " Or 使用单位 Like " & txt & " Or 设备所在镇 Like " & txt & " Or 规格型号 Like " & txt End If 想在上面显示规格型号，出厂编号
|
| -- 作者：大红袍 -- 发布时间：2015/6/26 17:46:00 -- 没看懂你什么意思，比如这样写
Dim txt As String = RibbonTabs("电梯制造资料信息录入").Groups("对应设备搜索").Items("搜索").Items("筛选").Text txt = "\'*" & txt & "*\'" |
| -- 作者：yongxuanchen -- 发布时间：2015/6/27 23:49:00 -- 搞定谢谢 搞定谢谢 |