菜单没有设置焦点的功能。
除非嵌入额外的菜单控件,如
Dim C As C1Ribbon.C1Ribbon = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )Dim a = new windows.forms.textboxa.text = "123"Dim b As New C1Ribbon.RibbonControlHost(a)b.name = "自定义项1"b.width = 300c.ConfigToolBar.Items.Add(b)
vars("a") = a
-------------------
vars("a").selectallvars("a").Select