中文字幕天天躁日日躁狠狠躁,最近中文字幕大全免费版在线,最近2019免费中文字幕视频三,亚洲精品无码你懂的,亚洲国产精品成人精品小说

  • 相關(guān)軟件
    >別讓MsgBox中斷了一些Background的處理作業(yè)　創(chuàng)建者：webmaster　更新時間：2005-05-17 23:45

    一旦您呼叫了 MsgBox，您正在執(zhí)行的一些 Background 的處理作業(yè)，例如計數(shù)器或時鐘...等，都會停下來，直到您回應(yīng)了 MsgBox 之后，一切才會恢復(fù)正常！或許您并不希望如此，這也有可能造成一些不必要的錯誤！
    要解決這個問題，您必須使用 Windows API 去呼叫 MessageBox Function，它氖褂梅椒?、外观?MsgBox 的結(jié)果完全相同，但是它卻不會中斷一些 Background 的處理作業(yè)！

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

    '在聲明區(qū)中加入以下聲明：

    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

    相關(guān)文章
    本頁查看次數(shù):