如何设置焦点到菜单文本框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何设置焦点到菜单文本框

共有1769人关注过本帖树形打印复制链接主题：如何设置焦点到菜单文本框

lwjiee

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：62 积分：695 威望：0 精华：0 注册：2018/2/23 14:51:00

如何设置焦点到菜单文本框 发帖心情

Post By：2018/3/28 7:37:00 [只看该作者]

菜单栏，有一个按钮，名字是【扫描二维码】，

有一个文本框，里面的数据变化后，会自动查询数据并展示

按下按钮之后，设置焦点到文本框里，这样子，不需要点这个文本框，扫描枪扫描的数据，能输入到文本框里

如何设置焦点到文本框呢？

注意是菜单，不是窗口，所以没法调用e.form.controls.select

谢谢啦

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/28 9:03:00 [只看该作者]

添加菜单

Dim C1Ribbon1 As C1Ribbon.C1Ribbon = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.TextBox
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("Other").Groups("Export").Items.Add(b)
vars("a") = a

设置焦点代码

vars("a").Select