vb.net重新执行do vbnet begininvoke

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

请教关于VB.NET DOEVENTS的问题！

System.Windows.Forms.Application.DoEvents()

Loop Until AxMSComm1.InBufferCount 0

死循环。

相关问答

Q1: vb.net do循环

你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。

是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。

因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。

Q2: 如何让VB.NET执行循环时执行其他东西呢？

给你个多线程执行任务vb.net重新执行do的例子

先添加BackgroundWorker1、TextBox1、Button1vb.net重新执行do，都是标准控件（窗体）在工具箱中找

vb.net2008

Public Class Form1

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

BackgroundWorker1.WorkerReportsProgress = True '可以传值

BackgroundWorker1.WorkerSupportsCancellation = True '可以暂停

TextBox1.Text = "开始多任务"

Button1.Text = "0"

BackgroundWorker1.RunWorkerAsync() '调用多任务程序

End Sub

'多任务程序

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

System.Threading.Thread.Sleep(20000) '暂停时间vb.net重新执行do，可以是你的非常耗时程序任务

BackgroundWorker1.ReportProgress(100) '传出0-100数值

End Sub

'接收传出数值

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

'TextBox1.Text = e.ProgressPercentage

TextBox1.Text = "结束多任务"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.Text += 1

End Sub

End Class

在启动程序后可以不停点击Button1看到数值的增加而不会卡死，20秒后TextBox1就会改成"结束多任务"，实际上看你的程序是什么vb.net重新执行do了，传值和接收传出数值的部分可取消

Q3: vb.net如何在一个循环中出错后重试上一循环

出错？如果是能够俘获的错误，那就出错后加上一句 Continue 循环（For、Do）之类就行

Q4: Vb.net中有多种do循环语句，貌似都是一样的，为什么弄那么多？

do ... loop