vb 程式在列印時宕機，VB 程式做 TTS 假

在函式的開頭，使用旁邊的“錯誤恢復時”可忽略發生的錯誤。 但是，建議在錯誤 goto 上使用來捕獲錯誤。

甚至像 Word 這樣的軟體也可以這樣做。

物件未關閉。

建議 s 用完時 =nothing

首先，你應該嘗試改進你的**，使程式高效執行。

如果確實需要那麼長時間，那麼新增 doevents 是乙個不錯的選擇，但同時，你需要做一些工作，比如在執行過程中不能對程式做更多的操作（你可以用一些控制項的 enabled 屬性來控制它，在進入迴圈之前將其設定為 false， 並在完成後將其設定為 true）。

最後，如果有更好的方法，那就是多執行緒，但這種方法要複雜得多。

如果將 doevent 放入迴圈中，則不會假死，如果遇到假死，按 Ctrl+Break，就可以中斷程式執行。

如果你正在使用 or，建議你啟動另乙個執行緒，這將是乙個很好的解決方案。 也可以貼**看看，讓我們看看有什麼可以優化的。

請注意，如果您尋找模式，簡化您的演算法，並嘗試盡可能少地使用巢狀迴圈，否則新增和提示，例如"它正在建造中，請耐心等待。 "和其他提示，以及 loop 語句中的 doevents。

有了doevents，就不可能“假動畫”。 除非 doevent 在迴圈中沒有被全部觸及或者使用睡眠

你的 i 參與了迴圈計算！ 永遠不要達到 3 個！ 當然，這是乙個無休止的迴圈！ 更改變數名稱或將 i=1 更改為 3 至 ii=1 至 3

你的 i 陷入了乙個無限迴圈，因為每次迴圈時，i 都會被重新分配，所以我永遠不會得到 3

此外，如果 a = 0 那麼

tfx tfy

tfx tfy

tfx tfy

a = 1g = 1

h = 1i = 2

end if

if a = 1 then

tfx tfy

tfx tfy

a = 2g = 0

h = 1i = 1

end if

if a = 2 then

tfx tfy

tfx tfy

end if

本段的A也與上一段相衝突，這些問題至今已被發現。

文字框輸出。 text = strtower1 & strtower2

文字框輸出。 text = 文字框輸出。 text & vbcrlf

相反：文字框輸出。 text = 文字框輸出。 text & strtower1 & strtower2 & vbcrlf

奇怪的事情。 你這樣看。 把東西放進去。 將值更改為 inti 並檢視。 到底輸入了什麼。 是輸出 1 還是輸出 5 如果是 5，他不會一一執行，而只是執行它們。 最後乙個週期。

stime = now '獲取當前時間。

while <>4

doevents

ntime = now '獲取迴圈時間。

if datediff("s", stime, ntime) >3 then posthtmlstr = exit function '如果判斷程序超過 3 秒，則超時後退出程序。

在網速較差的情況下，POST程式會退出，當然，最後可以新增乙個msgbox來提示POST失敗。

呵呵，新手問題。

手術結束後，王碧面對面的手靈友加了畢淮，並傳了下去。

它立即被列印出來。

doevents 函式。

轉移控制權，以便作業系統可以處理其他事件。

語法 doevents（ ）。

說明 DoEvents 函式返回乙個 Integer 來表示在 Visual Basic 獨立版（例如 Visual Basic、Professional）中開啟的窗體數，而在其他應用程式中，DoEvents 返回 0。

DoEvents 將控制權傳遞給作業系統。 當作業系統完成對佇列中的事件的處理，並且傳送了 sendkeys 佇列中的所有金鑰時，將返回控制權。

DoEvents 對於簡化過程（例如允許使用者取消已啟動的檔案（例如搜尋檔案）特別有用。 對於長程序，最好使用計時器或將任務委派給 ActiveX EXE 部件來放棄控制權。 將來，任務將完全獨立於應用程式，多工處理和時間片將由作業系統處理。

請注意，在第乙個 doevent 返回之前，使用 doevents 放棄控制權的過程不會被 ** 的其他部分再次呼叫; 否則將導致不可預測的結果。 此外，如果其他應用程式可能以不可預知的方式與程序互動，請不要使用 doevent，因為您不能放棄控制權。

doevents 函式的示例。

下面的示例在迴圈中使用 doevents 函式，每當迴圈完成 1000 次時，該函式就會將執行權交給作業系統。 僅當主應用程式是 Visual Basic 時，DoEvents 才返回開啟的窗體數。

建立乙個變數來儲存載入的 Visual Basic 可見窗體的數量。

dim i, openforms

for i = 1 to 150000 '迴圈開始。

if i mod 1000 = 0 then '如果迴圈一已完成 1000 次。

openforms = doevents '將執行權交給作業系統。

end if

next i '將迴圈計數器加 1。

這不是問題，但是要檢查網路上的檔案，可能是因為網路程式響應速度太慢，可以在**中新增提示資訊，例如“正在連線資料庫，請稍候......等等，這樣使用者就不會認為程式已經死了。