msgbox对话框关闭后，如何使文本框仍然保持焦点

tsgxjr

我想实现的功能是，在文本框中按回车后，弹出msgbox对话框，按确定后，可以继续在文本框中输入文字。问题是现在msgbox关闭后，焦点都不知道跑哪儿去了。。何解？？

CC例例

MsgBox "-----"
TextBox1.SetFocus

tsgxjr

CC例例 发表于 2016-5-24 13:05
MsgBox "-----"
TextBox1.SetFocus

试了没用啊。。。

tsgxjr

Private Sub ComboBoxXsdno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
End Sub

'回车后触发事件
Private Sub ComboBoxXsdno_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
MsgBox “111”
ComboBoxXsdno.SetFocus
End If
End Sub

就这两段，msgbox后面的代码仿佛根本就不起作用

山风

楼主如果想解决问题，最好是将你的文件发来，大家好调试

tsgxjr

附件在这里
我试了一下，userform1.show 1的话，msgbox关闭后焦点没问题。。。但是如果是userform1.show 0。。。。焦点就会随着msgbox的关闭而跑到哪里都不知道了，怎么调都没用。

bishkek

我刚也碰到这问题，想了个笨的办法，在msgbox后，先unload me,再重新.show，可以达到要求。

yylucke

显示窗体的语句：
　　（1）模式窗体的显示代码：
　　窗体名称.Show  vbModal
　　也可以写成：窗体名称.Show 1
　　（2）无模式窗体的显示代码：
　　窗体名称.Show  vbModeless
　　也可以写成：窗体名称.Show 0
（1）模式窗体：窗体显示后将停显示之后的代码直到退出或隐藏此窗体，并且必须退出或隐藏此窗体后，才可以操作非此窗体的其他界面元素。
　　也就是说，当你使用模式窗体显示某窗体的时候，当程序执行完“显示窗体”这条命令后，将暂停执行程序里剩余的语句，真正这个窗体被隐藏或退出。关且当窗体显示出来以后，你不能激活该窗体以外的任何区域。
　　（2）无模式窗体：窗体显示后会继续执行程序里余下的语句，而其他的窗体或界面也可以进行操作。

你非要整个无模式窗体做什么，那样很多意外会发生。毕竟是非专业编程，个人认为尽量“单线程”，即采用模式窗体，当前窗体独占模式。显示
控件在设计之初就是默认模式窗体，你何必多此一举修改为非模式呢。
窗体显示，就用：窗体名称.Show，一点毛病没有，不要去加那个参数。除非你的程序很特殊。

yylucke

其实跳转到msgbox之前的控件，没有你写的代码那么麻烦，以下是通用代码
Me.Controls(控件名称).SetFocus