主题：如何设置焦点到菜单文本框

添加菜单

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

全局代码

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