Vb.net中有多種do循環(huán)語句，貌似都是一樣的，為什么弄那么多？

do ... loop

創(chuàng)新互聯建站成立于2013年，我們提供高端重慶網站建設、網站制作、成都網站設計、網站定制、全網整合營銷推廣、微信平臺小程序開發(fā)、微信公眾號開發(fā)、營銷推廣服務，提供專業(yè)營銷思路、內容策劃、視覺設計、程序開發(fā)來完成項目落地，為酒樓設計企業(yè)提供源源不斷的流量和訂單咨詢。

do while ... loop

do until ... loop

do ... loop while

do ... loop until

各有不同作用，有的先處理再判斷，有的先判斷再處理

vb.net DOEVENT怎么用

Public?Sub?Delay(Second?As?Bouble)

Dim?tempTime?As?DateTime?=?DateTime.Now

While?(tempTime.AddSeconds(second).CompareTo(DateTime.Now)??0)

Application.DoEvents()

End?While

End?Sub

放在模塊里，使用時 Delay(1) 即可。

vb.net do循環(huán)

你確信只循環(huán)一次嗎？我看不像，在最后添加上一句msgbox jishu1，多半顯示3。

是在第二塊代碼中有問題，你應該把chaxun4 = xlsheet.Range("l1").Value + 2分別放到兩個條件句中初始chaxun4變量。

因為上一個Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循環(huán)退出后，下一個循環(huán)一開始就符合退出條件了，所以循環(huán)沒有進行了。

vb.net 中如何使用Doevents？

System.Windows.Forms.Application.DoEvents()

Or

My.Application.DoEvents()

處理目前在訊息佇列中的所有 Windows 訊息。

' Usage My.Application.DoEvents()

' Declaration Public Sub DoEvents()

備注

My.Application.DoEvents 方法可以讓您的應用程式在執(zhí)行程式碼的同時，也能夠處理可能所引發(fā)的其他事件。My.Application.DoEvents 方法與 DoEvents 方法具有相同的行為。

當您執(zhí)行 Windows Form 應用程式時會建立新表單，表示會等待處理事件。每一次表單處理事件時 (例如，按鈕點選)，便會處理與該事件相關聯的所有程式碼。所有其他事件都會在佇列中等待。當您的程式碼在處理事件時，應用程式不會做出回應。例如，如果將其他視窗拖曳至頂端，不會重新繪制視窗。

如果您在程式碼中呼叫 My.Application.DoEvents，應用程式就可以處理其他事件。例如，如果程式碼將資料加入至回圈 (Loop) 中的 ListBox，且會在回圈的每個步驟之后呼叫 My.Application.DoEvents，則將其他視窗拖曳至該視窗上方時，便會重新繪制表單。如果從程式碼中移除 My.Application.DoEvents，則必須等到按鈕的點選事件處理常式完成執(zhí)行之后，才會重新繪制表單。

您通常會在回圈中使用此方法處理訊息。

注意事項：

My.Application.DoEvents 方法處理事件的方式和表單的方式不太一樣。使用多執(zhí)行緒處理，讓表單直接處理事件。如需詳細資訊，請參閱 Visual Basic 中的多執(zhí)行緒。

警告：

如果處理使用者介面 (UI) 事件的方法呼叫 My.Application.DoEvents 方法，則在它完成之前可能會重新輸入方法。發(fā)生這個狀況的原因是 My.Application.DoEvents 方法會處理 Windows 訊息，而 Windows 訊息會引發(fā)事件。

請教關于VB.NET DOEVENTS的問題！

Do

System.Windows.Forms.Application.DoEvents()

Loop Until AxMSComm1.InBufferCount 0

死循環(huán)。

VB.net Do ... Loop Until循環(huán)和Do Until ... Loop循環(huán)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim sum As Integer = 0

Dim i As Integer = 0

Do

i = i + 1

sum = sum + i

Loop Until sum 6000

MsgBox(i)

Debug.Print(sum)

End Sub

文章標題：vb.netdo vbnet動態(tài)修改代碼
網頁網址：http://aaarwkj.com/article16/hhppdg.html

成都網站建設公司_創(chuàng)新互聯，為您提供云服務器、小程序開發(fā)、全網營銷推廣、外貿建站、定制開發(fā)、外貿網站建設

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯