要解決這個問題,您必須使用 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
新聞熱點
疑難解答