将焦点设置在无模式用户窗体上的控件上

问题描述

在用户表单上，在每个文本框的 Exit 事件上，我进行某种类型的验证。如果输入有问题，我会显示一条错误消息并将焦点发送回文本框，并突出显示文本。这是我正在做的示例。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If  TextBox1 *not valid*  Then
        MsgBox  "*Some error message*"
        Cancel = True
        TextBox1.SetFocus
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Text)
End If

这适用于模态表单。但是，如果表单是无模式的，则在退出事件之后焦点似乎处于不确定状态。此时，回车键不会做任何事情，但 Tab 键会按 Tab 键顺序跳到下一个控件。有没有办法像使用模态表单一样使用无模式表单进行这项工作？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

modeless setfocus vba