Question

VB使用MsgBox后程序不被挂起

有一段代码：private sub command1_click()msgbox "123123"text1.text = "1111"end sub 当系统弹出信息提示框时，不按“确定”按钮，程序就会被挂起，下一句代码就不会被执行。有什么办法可以让msgbox 弹出时，下面的命令可以继续执行？（不用Timer控件）.

Answer 1

说不行的，太笨了。其实完全可以做得到，就是你再写个form2，在原来需要弹出msgbox的地方，改为 form2.show，然后在form2里设置2个按钮，分别是“确定”与“取消”，同样可以实现使用msgbox的功能。这样，就可以现实你的目的， 可以让msgbox 弹出时，下面的命令可以继续执行？并且不需要 Timer控件。（可以增加的“倒计时自动消失对话窗”的高级功能：在form2里放个定时器，设置倒计时，如果用户没有理会弹出来的form2窗口，时间到了，form2可以自动消失。）
以下是代码：
Private Sub Form_load()
......
form2.show
XXXX
.......
END Sub
其中，XXXX以及后面的代码就是你原来希望的，弹出消息框之后可以继续执行的代码（程序并未挂起，仍在执行）。
Form2 的代码:
在Form2中，“确定”按钮的名称为Command_sub1，“取消”按钮的名称为Command_sub2，以区别于Form1中的按钮。
Dim TimeLeft As Integer
Private Sub Form_load()

TimeLeft = 10

Timer1.Interval = 1000
Timer1.Enabled = True

Label_sub2.Caption = "若未决定，将在" & Str$(TimeLeft) & " 秒后继续。"

End Sub
Private Sub Timer1_Timer()
TimeLeft = TimeLeft - 1

Label_sub2.Caption = "若未决定，将在" & Str$(TimeLeft) & " 秒后继续。"

If TimeLeft = 0 Then

Timer1.Enabled = False
DoEvents
Call Command_sub1_Click
End If
End Sub

Private Sub Command_sub1_Click()
'此段是"确定"按钮要执行的
Unload Form2

Set Form2 = Nothing
End Sub

Private Sub Command_sub2_Click()
'此段是"取消"按钮代码
Unload Form2

Set Form2 = Nothing
End Sub

Answer 2

没有,所有的msgbox都会挂起程序,就算你自己建立的模态Form都会挂起.如果不想挂起,只能自己做个Form,然后直接Form2.show,只有这样的才不会挂起

Answer 3

可以改一下顺序text1.text = "1111"msgbox "123123"