别让MsgBox中断了一些Background的处理作业

文章作者 100test 发表时间 2007:12:29 12:10:28
来源 100Test.Com百考试题网

一旦您呼叫了 MsgBox，您正在执行的一些 Background 的处理作业，例如计数器或时钟...等，都会停下来，直到您回应了 MsgBox 之后，一切才会恢复正常！或许您并不希望如此，这也有可能造成一些不必要的错误！

　　要解决这个问题，您必须使用 Windows API 去呼叫 MessageBox Function，它的使用方法、外观和 MsgBox 的结果完全相同，但是它却不会中断一些 Background 的处理作业！

　　在以下的范例中，您要在 Form 中加入一个 Label、二个 CommandButton 及一个 Timer，不更改任何属性。

在声明区中加入以下声明：

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

加入以下程序码：

Private Sub Command1_Click()
MsgBox "计时器停掉了！", 64, "VB 的讯息框"
End Sub

Private Sub Command2_Click()
MessageBox Me.hwnd, "注意！计时器还在跑！", "API 的讯息框", 64
End Sub

Private Sub Form_Load()
Me.TimerInterval = 1000
Label1.Caption = "目前的时间是：" &. Time
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "目前的时间是：" &. Time
End Sub