以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设置焦点到菜单文本框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116604)
--  作者：lwjiee
--  发布时间：2018/3/28 7:37:00
--  如何设置焦点到菜单文本框
菜单栏，有一个按钮，名字是【扫描二维码】，
有一个文本框，里面的数据变化后，会自动查询数据并展示
按下按钮之后，设置焦点到文本框里，这样子，不需要点这个文本框，扫描枪扫描的数据，能输入到文本框里
如何设置焦点到文本框呢？
注意是菜单，不是窗口，所以没法调用e.form.controls.select
谢谢啦
--  作者：有点甜
--  发布时间：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
--  作者：lwjiee
--  发布时间：2018/3/30 8:00:00
--  
很强大啊，这么复杂的代码都写出来了
确实能实现，点个按钮，焦点自动到文本框里
可是这个文本框的 textchanged 函数怎么定义呢？
原生的菜单文本框，可以定义textchanged 函数的。
--  作者：有点甜
--  发布时间：2018/3/30 8:54:00
--  

全局代码

 

Public Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
    msgbox(sender.text)
End Sub

 

调用代码

 

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
addhandler a.textchanged, addressof textbox1_textchanged
--  作者：lwjiee
--  发布时间：2018/3/30 11:37:00
--  
牛！ 简直打开了一个新的世界