Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：如何设置菜单组件的Tab键顺序和回车事件？


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

主题：请教：如何设置菜单组件的Tab键顺序和回车事件？
帅哥哟，离线，有人找我吗？
y2287958
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4880 积分：35432 威望：0 精华：0 注册：2008/8/31 22:44:00 		请教：如何设置菜单组件的Tab键顺序和回车事件？  发帖心情 Post By：2019/7/31 22:12:00 [只看该作者]

如题。

我在菜单中设置了一个“功能区1”，其中“功能组1”中增加了“文本框”、“日期框”和“数值框”。

现在如何设置：1、光标焦点在“文本框”时，按下Tab键后，光标依次定位到“日期框”、“数值框”；2、想在“文本框”组件中执行回车事件，如何设置？

谢谢！附件如下

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

试了一下，没有办法控制

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4880 积分：35432 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/1 12:38:00 [只看该作者]

收到，有办法变通一下吗？

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


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

试试这种，添加.net的文本框等控件，这种控件可以设置输入焦点
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=76721

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4880 积分：35432 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/1 15:54:00 [只看该作者]

谢谢，之前我是这么用的，可以设置全局代码中设置事件，但还是无法设置Tab键的顺序。

再问一个题外话，以下代码在菜单中添加一个组合框，如何添加下拉列表内容？
Dim C1Ribbon1 As C1Ribbon.C1Ribbon =  BaseMainForm.controls("C1Ribbon1")
Dim a As New system.Windows.Forms.ComboBox
a.Text = "123456789"
a.Font = new font("宋体", 20)
a.backColor = color.red
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("功能区1").Groups("功能组1").Items.Add(b)

.ComboList = "1|2|3"  这个
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Tab键顺序无法设置，在上一个控件的keydown事件判断是Tab键，就设置下一个控件取得焦点，

C1Ribbon1.tabs("功能区1").Groups("功能组1").Items(1).select
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4880 积分：35432 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/1 16:27:00 [只看该作者]

收到，还有5楼那个下拉列表内容怎么添加？

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


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

使用全局变量保存新增的控件，
Dim a As New system.Windows.Forms.ComboBox
vars("a") = a

然后在上一个控件的keydown事件设置下一个控件的焦点

vars("a").focus
vars("a").Select
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4880 积分：35432 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/1 16:54:00 [只看该作者]

以下是引用y2287958在2019/8/1 15:54:00的发言：
谢谢，之前我是这么用的，可以设置全局代码中设置事件，但还是无法设置Tab键的顺序。

再问一个题外话，以下代码在菜单中添加一个组合框，如何添加下拉列表内容？
Dim C1Ribbon1 As C1Ribbon.C1Ribbon =  BaseMainForm.controls("C1Ribbon1")
Dim a As New system.Windows.Forms.ComboBox
a.Text = "123456789"
a.Font = new font("宋体", 20)
a.backColor = color.red
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("功能区1").Groups("功能组1").Items.Add(b)

.ComboList = "1|2|3"  这个

不好意思，我词不达意。获得焦点我明白了，我想知道的是这个红色字体部分（即下拉列表）怎么写，现在的写法不成功。

再次谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

a.items.add（1）
a.items.add（2）
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询