以文本方式查看主题

-  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=136927)

--  作者:江南小镇
--  发布时间:2019/6/24 18:28:00
--  [求助]组合框
老师好,我想把菜单名称标题在窗口组合框文本框显示并赋值给窗口表。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.rar


--  作者:有点蓝
--  发布时间:2019/6/24 20:21:00
--  

--  作者:江南小镇
--  发布时间:2019/6/24 20:37:00
--  
老师好,我想把菜单名称标题在窗口组合框文本框显示并赋值给窗口表

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:窗口.rar


--  作者:有点蓝
--  发布时间:2019/6/24 20:44:00
--  
参考2楼用法,遍历菜单生成列表项目,如:

Dim str As String = ""
For Each itm As RibbonMenu.Tab In RibbonTabs
    str = str & "|" & itm.Name
Next 
e.Form.Controls("RibbonTabs名称").ComboList = str.Trim("|")

--  作者:江南小镇
--  发布时间:2019/6/24 21:07:00
--  
老师,根据组合框中的名称文本框自动赋值标题。
--  作者:有点蓝
--  发布时间:2019/6/24 21:37:00
--  
组合框textchanged事件

e.Form.Controls("RibbonTabs标题").Text = RibbonTabs(e.sender.text).text
--  作者:江南小镇
--  发布时间:2019/6/25 7:11:00
--  
老师谢谢你的帮忙,下面继续要麻烦老师了。




图片点击可在新窗口打开查看此主题相关图片如下:image 2.png
图片点击可在新窗口打开查看
 
--  作者:有点蓝
--  发布时间:2019/6/25 10:15:00
--  
用法一样,参考2/4/6楼的方法自己写
--  作者:江南小镇
--  发布时间:2019/6/25 12:51:00
--  
老师,还是搞不懂。
--  作者:有点甜
--  发布时间:2019/6/25 17:14:00
--  
以下是引用江南小镇在2019/6/25 12:51:00的发言:
老师,还是搞不懂。

 

比如


Dim str As String = ""
For Each itm As RibbonMenu.group In RibbonTabs("Common").groups
    str = str & "|" & itm.Name
Next
e.Form.Controls("分组").ComboList = str.Trim("|")