国产探花免费观看_亚洲丰满少妇自慰呻吟_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

國內最大的酷站演示中心!
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 文昌市| 大悟县| 贡觉县| 香河县| 横峰县| 监利县| 怀仁县| 建瓯市| 广平县| 新昌县| 新郑市| 庆阳市| 丹凤县| 德江县| 开阳县| 黄石市| 南通市| 民乐县| 陆河县| 黄骅市| 临武县| 蒙城县| 冀州市| 晋中市| 新河县| 四子王旗| 商丘市| 临漳县| 临西县| 富宁县| 丰都县| 饶平县| 河东区| 广河县| 德庆县| 八宿县| 兰坪| 尼木县| 庄河市| 康定县| 平定县|