别让MsgBox中断了一些Background的处理作业
一旦调用MsgBox,你正在执行的一些后台处理作业,比如计数器或者时钟等。,就会停止,一切都不会恢复正常,直到你回复MsgBox!可能你不想这样,也可能会造成一些不必要的错误!
要解决这个问题,必须使用Windows API调用MessageBox函数。它的用法和外观和MsgBox一模一样,但是不会中断一些后台处理工作!
在下面的示例中,您希望在不更改任何属性的情况下向窗体添加一个标签、两个CommandButton和一个计时器。
在声明区域添加以下语句:
私有声明函数MessageBox Lib“user 32”别名“MessageBox a”(ByVal hwnd为Long,ByVal lpText为String,ByVal lpCaption为String,ByVal wType为Long)为Long
添加以下代码:
private command 1 _ click()
msgbox“计时器停止了!”,64,“VB的VB消息框”
End Sub
private command 2 _ click()
messagebox me . hwnd,"注意!计时器还在运行!”,“API的消息框”,64
End Sub
private form _ load()
me . timer interval = 1000
label 1 . caption = "当前时间是:" & Time
End Sub
private timer 1 _ timer()
label 1 . caption = "当前时间是:" & Time
End Sub
0条评论