在线等！！！！！！！关于msgbox的问题

Question

在使用msgbox中用了vbapplication的参数，想达到程序必须响应该框后再往下进行的效果，在调试时运行正常，达到了效果，但一旦编译成exe则出问题，msgbox弹出不弹出对系统没影响，请问怎样解决。附带码：就一个窗体，上有一按钮和定时器
Private Sub Command1_Click()
MsgBox "slfds", vbOKOnly + vbSystemModal + vbExclamation
End SubPrivate Sub Timer1_Timer()
Form1.Print "111"
End Sub

Answer 1

你是想在MSGBOX弹出之后定时器停止吗？
用MSGBOX达不到这个效果,你需要设置:Timer1.Enabled = False关闭之后再设置Timer1.Enabled = True在VB的环境下MSGBOX是有这种效果,不过这是VB环境达到的效果,编译成EXE文件之后才是真正的效果!