VB中重要的DoEvents函數

2024-07-21 02:20:59

字體：大中小

來源：轉載

供稿：網友

有很多程序員都不了解vb中的doevents函數。doevents函數可以臨時返回控制器給操作系統，并允許它完成其他可能發生的事件。

當一個程序的代碼需要花很長的時間去執行，比如在一個復雜的數學計算的時候，你需要運用doevents函數。在你代碼適當的位置調用doevents函數，能夠改變程序響應的時間。

這里有一個例子：在vb里創建一個標準的exe文件并放置一個commandbutton和一個textbox，然后，將下面的代碼放入commandbutton的單擊事件處理程序中：

private sub command1_click()
dim i as long, j as long
for i = 1 to 100
text1.text = i
for j = 1 to 100000
nextnext

text1.text = “done”
end sub

你可以發現這個程序中有嵌套式循環，循環將持續幾秒鐘。每次，外部循環反復執行i

的值顯示在text box中。當循環結束時，done也顯示出來了。

在你運行這個程序的時候究竟發生了什么呢？然而，text box不會改變直到done顯示

出來。問題在于在執行循環的時候系統非常繁忙，而循環語句中的i要顯示在text box里面，這延遲windows隊列。當循環完成以后，所有的請求都被執行。

現在在text1.text = i調用doevents函數。當你運行程序的時候，你會發現text box記下了i的值。調用doevents函數可以釋放系統內存來完成其他請求，然后將控制器返回給vb程序。

雖然調用doevents函數是以速度為代價，但是可以讓程序有時間執行其他的事件，這個代價是值得的。

上一篇：vb6中word編程總結

下一篇：在VB項目中使用資源文件