以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教：如何设置菜单组件的Tab键顺序和回车事件？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138466)
--  作者：y2287958
--  发布时间：2019/7/31 22:12:00
--  请教：如何设置菜单组件的Tab键顺序和回车事件？

如题。

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

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

谢谢！附件如下

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
--  作者：有点蓝
--  发布时间：2019/8/1 9:49:00
--  
试了一下，没有办法控制
--  作者：y2287958
--  发布时间：2019/8/1 12:38:00
--  
收到，有办法变通一下吗？
--  作者：有点蓝
--  发布时间：2019/8/1 14:03:00
--  
试试这种，添加.net的文本框等控件，这种控件可以设置输入焦点
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=76721
--  作者：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"  这个
--  作者：有点蓝
--  发布时间：2019/8/1 16:19:00
--  
Tab键顺序无法设置，在上一个控件的keydown事件判断是Tab键，就设置下一个控件取得焦点，

C1Ribbon1.tabs("功能区1").Groups("功能组1").Items(1).select
--  作者：y2287958
--  发布时间：2019/8/1 16:27:00
--  
收到，还有5楼那个下拉列表内容怎么添加？
--  作者：有点蓝
--  发布时间：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
--  发布时间：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"  这个

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

再次谢谢。
--  作者：有点蓝
--  发布时间：2019/8/1 17:07:00
--  
a.items.add（1）
a.items.add（2）