別讓 MsgBox 中斷了一些 Background 的處理作業

在 VB 中，一旦您呼叫了 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()
Timer1.Interval = 1000
Label1.Caption = "目前的時間是：" & Time
End Sub

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