Question

VB6.0主程序未响应时MsgBox“请稍后……”，响应时自动关闭

VB6.0中如何在程序未响应时弹出MsgBox“请稍后……”，运行完此程序后MsgBox自动关闭？

Answer 1

MsgBox弹出的对话框属于模态窗口，也就是说当它弹出时整个程序是处于“挂起”状态的，只有等你手动关闭这个对话框后续程序才会继续运行。
要想实现你的目的，你可以自己用窗体模仿一个类似MsgBox的对话框即可，然后在需要的时候用非模态的方式打开，这样的话你的程序就会继续运行，在符合某个条件后就可以通过程序关闭它。

追问

不是运行的时候，是未响应的时候show对话框的代码怎么写

追答

所谓“未响应”有多种情况，你说的是什么情况？如果是因为程序要执行一个大循环导致程序出现“假死”的状态，那么通常的做法是在循环开始前把鼠标形状设为沙漏形状，循环结束再恢复原状，这几乎是目前绝大多数软件的做法。没有弹出对话框的，原因我前面已经说了。也可以用状态栏或者Label控件来显示信息，这些都不会中断程序运行的。
PS：在引起程序假死的循环中的适当位置放置DoEvents可以减轻甚至完全消除未响应的状态。