Foxtable(狐表)用户栏目专家坐堂 → [求助]组合框


  共有1970人关注过本帖树形打印复制链接

主题:[求助]组合框

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1701 积分:11355 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]组合框  发帖心情 Post By:2019/6/24 18:28:00 [只看该作者]

老师好,我想把菜单名称标题在窗口组合框文本框显示并赋值给窗口表。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/6/24 20:21:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1701 积分:11355 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/6/24 20:37:00 [只看该作者]

老师好,我想把菜单名称标题在窗口组合框文本框显示并赋值给窗口表

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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("|")

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1701 积分:11355 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/6/24 21:07:00 [只看该作者]

老师,根据组合框中的名称文本框自动赋值标题。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/6/24 21:37:00 [只看该作者]

组合框textchanged事件

e.Form.Controls("RibbonTabs标题").Text = RibbonTabs(e.sender.text).text

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1701 积分:11355 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/6/25 7:11:00 [只看该作者]

老师谢谢你的帮忙,下面继续要麻烦老师了。




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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/6/25 10:15:00 [只看该作者]

用法一样,参考2/4/6楼的方法自己写

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1701 积分:11355 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/6/25 12:51:00 [只看该作者]

老师,还是搞不懂。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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("|")


 回到顶部
总数 18 1 2 下一页