国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 綜合 > 正文

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

2024-07-21 02:12:28
字體:
來源:轉載
供稿:網友
一旦您呼叫了 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

國內最大的酷站演示中心!
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 丰都县| 安阳市| 安岳县| 嘉祥县| 武定县| 综艺| 漯河市| 鞍山市| 长葛市| 崇信县| 清丰县| 伊吾县| 周宁县| 孝义市| 额敏县| 荆门市| 油尖旺区| 新宁县| 马鞍山市| 广昌县| 泸溪县| 阳城县| 惠安县| 临颍县| 临泉县| 辰溪县| 收藏| 张北县| 濉溪县| 武邑县| 庆元县| 长治市| 海淀区| 兖州市| 翁源县| 建平县| 静安区| 宜兴市| 莱州市| 郁南县| 礼泉县|