亚洲av色香蕉一区二区三区,十四以下岁毛片带血a级,亚洲 校园 欧美 国产 另类,亚洲av日韩av一区谷露,色欲av无码一区二区三区

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

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

    在以下的范例中，您要在 Form 中加入一個(gè) Label、二個(gè) CommandButton 及一個(gè) 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 "計(jì)時(shí)器停掉了！", 64, "VB 的訊息框"
    End Sub

    Private Sub Command2_Click()
    MessageBox Me.hwnd, "注意！計(jì)時(shí)器還在跑！", "API 的訊息框", 64
    End Sub

    Private Sub Form_Load()
    Me.TimerInterval = 1000
    Label1.Caption = "目前的時(shí)間是：" & Time
    End Sub

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

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