Question

vb msgbox 自动关闭

vb msgbox 自动关闭

Answer 1

可以用sendkeys传送一个回车。

Private Sub Command1_Click()
Timer1.Enabled = True
MsgBox ""

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 5000

End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
SendKeys "~"


End Sub

编译后，执行可执行文件（xx.exe)测试，在vb6集成环境中，msgbox ""是全阻塞的，

也就是说timer1也会停掉，编译后不会阻塞timer定时器。

最好的办法是用窗体模拟一个msgbox，这样控制起来比较方便。