vb.net如何终止循环 VB死循环

vb.net中如何结束一个线程

vb.net中如何结束一个线程

成都网站建设哪家好,找成都创新互联!专注于网页设计、成都网站建设、微信开发、小程序开发、集团成都定制网页设计等服务项目。核心团队均拥有互联网行业多年经验,服务众多知名企业客户;涵盖的客户类型包括:主动防护网等众多领域,积累了大量丰富的经验,同时也获得了客户的一致认可!

一般而言,如果您想终止一个线程,您可以使用System.Threading.Thread类的Abort方法. 例如:

Dim worker As ThreadStart = New ThreadStart(AddressOf workerthreadmethod)

Dim t As Thread = New Thread(worker)

t.Start()

MessageBox.Show("Wait for a while for the thread to start.")

MessageBox.Show(t.ThreadState.ToString())

t.Abort()

MessageBox.Show(t.ThreadState.ToString())

t.Join()

MessageBox.Show(t.ThreadState.ToString())

当然,在调用Abort方法后,线程并不是立刻终止,要等线程的所有finally快中的代码完成后才会完全终止. 所以在主线程中可以用Join方法来同步,当线程还未完全终止时,t.Join()将处于等待,直到t线程完全结束后再继续执行后面的语句。

Abort方法是会导致线程跳出一个异常错误的,你需要在代码中捕获该异常。下面是一个比较完整的VB.NET线程例子:

Imports System

Imports System.Threading

Public Class MyTestApp

Public Shared Sub Main()

Dim t As New Thread(New ThreadStart(AddressOf MyThreadMethod))

'Start the thread

t.Start()

MsgBox("Are you ready to kill the thread?")

'Kill the child thread and this will cause the thread raise an exception

t.Abort()

' Wait for the thread to exit

t.Join()

MsgBox("The secondary thread has terminated.")

End Sub

Shared Sub MyThreadMethod()

Dim i As Integer

Try

Do While True

Thread.CurrentThread.Sleep(1000)

Console.WriteLine("This is the secondary thread running.")

Loop

Catch e As ThreadAbortException

MsgBox("This thread is going to be terminated by the Abort method in the Main function")

End Try

End Sub

End Class

Thread.Abort()方法用来永久销毁一个线程,而且将抛出ThreadAbortException异常。使终结的线程可以捕获到异常但是很难控制恢复,仅有的办法是调用Thread.ResetAbort()来取消刚才的调用,而且只有当这个异常是由于被调用线程引起的异常。因此,A线程可以正确的使用Thread.Abort()方法作用于B线程,但是B线程却不能调用Thread.ResetAbort()来取消Thread.Abort()操作。

vb.net 怎么结束进程

好像不难吧?

我放进了Button1的Click事件里。

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

On Error GoTo Errmessages '在做系统操作时加排错标签是个好习惯

Dim TargetName As String = "ibmdict" '存储进程名为文本型,注:进程名不加扩展名

Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '从进程名获取进程

Dim TargetPath As String '存储进程路径为文本型

If TargetKill.Length 1 Then '判断进程名的数量,如果同名进程数量在2个以上,用For循环关闭进程。

For i = 0 To TargetKill.Length - 1

TargetPath = TargetKill(i).MainModule.FileName

TargetKill(i).Kill()

Next

ElseIf TargetKill.Length = 0 Then '判断进程名的数量,没有发现进程直接弹窗。不需要的,可直接删掉该If子句

MsgBox("没有发现进程!")

Exit Sub

ElseIf TargetKill.Length = 1 Then '判断进程名的数量,如果只有一个,就不用For循环

TargetKill(0).Kill()

End If

MsgBox("已终止" TargetKill.Length "个进程") '弹窗提示已终止多少个进程

Errmessages: ‘定义排错标签

If Err.Description Nothing Then ’判断有无错误,如果有,则 ↓

MsgBox(Err.Description) '当出现错误时,弹窗提示

End If

End Sub

可根据需要自行修改,这个备注够完善了吧?不会的再Hi我。

VB 结束for 循环问题

实话说,我从来没听说VB里有return语句,如果是VB.net里有的就当我没学过孤陋寡闻吧。

我只知道VB里跳出循环是Exit for,而不是什么return。

先不说有没有return关键字,明显它在j循环的外面,而在i循环的里面,那自然是只对i循环有效果了,怎么可能结束j循环呢?

如果要结束i循环就在那个位置用exit for。如果要线束j循环就在j循环体里用 exit for。

exit for 只结束包含它的最近的一层的循环,懂我的意思么?

return在其它语言里,是表示返回,跳出整个函数,而不是跳出某个循环。

vb.net中关于循环语句 求教大家弱智的问题

要弄清楚这两个问题,就要明白For循环语句的语法规则:

For循环语句,首先是判断循环条件,如果循环条件不合理,则循环不执行。

那么看第一个语句,循环范围是 i = -3.5 to 5.5,显然这个是一个从-3.5到5.5的递增范围,可是后面的Step却是一个负数,表示以0.5的步长递减。取值范围要求从小到大,可是步长改变却是由大变小,显然这个循环条件自相矛盾,所以循环将不会执行,也就是循环执行的次数是0次!

如果循环条件合理,则开始执行循环语句,直到根据步长变换,下一个值超出循环范围则终止。

For j = 6 to 2 Step -2

Next

完整写法就是:

For j = 6 to 2 Step -2

Next j

Next j的意思就是下一个j值。结合本题,下一个j值等于6-2=4,这个时候,就是循环语句的第二个规则,判断循环变量的值是否超出循环范围,我们这里的j=4,显然是在6 to 2这个范围之内,所以循环继续,到下一个j的时候为2,依然在循环范围内;到这里,6,4,2我们的循环执行了3次,准备第4次循环的时候j = 2 -2 = 0超过了6 to 2这个范围,那么循环终止。

所以i循环内的每一个j循环将执行3次。

vb.net 有没有终止某个语句的方法?

定义一个公有布尔值变量 flag,初始值 False。

循环里最开始 If 判断一下 flag,如果为 True 就 Exit Do 跳出循环,否则继续循环。

然后在别的函数控制 flag 的值就可以了。

P.S. 你这段代码是死循环,直到程序占用内存越来越大溢出进而程序崩溃为止……


文章题目:vb.net如何终止循环 VB死循环
分享路径:http://scyanting.com/article/doddgje.html