RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
vb.net线程中止,vb在程序运行模式下能够中断程序

vb.net 怎么结束进程

好像不难吧?

创新互联是一家专注于成都网站制作、成都网站设计与策划设计,重庆网站建设哪家好?创新互联做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:重庆等地区。重庆做网站价格咨询:13518219792

我放进了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.net 线程 ThreadState 的使用方法 怎么获取线程状态,是否被挂起堵塞停止等等

用time控件啊,获取threadstate后,按指定时间间隔规定向界面刷新,线程必须是全局变量

用一个有退出条件的无限循环的sub也行。

线程开始就触发该过程,用无限循环来刷新状态,线程完成即退出无限循环。局部变量的线程也可以用这种方式。

不过用法要正确,否则会出问题。

VB.net 多线程,导致无法响应

t.Suspend() 这个是挂起线程。是一个异步方法。

t.Sleep 我看了是一个同步方法。要等这个方法运行完了才继续下一步。

这和from.show和 from.showdiaglog区别差不多!

至于疑问2我也没找到原因。

运行VS2013 的VB.NET程序时错误(其他信息: 线程正在运行或被终止;它无法重新启动。)怎么办?

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

For s = 1 To 11 Step 10

t1 = New Threading.Thread(AddressOf setA)

t2 = New Threading.Thread(AddressOf setB)

t3 = New Threading.Thread(AddressOf setC)

t4 = New Threading.Thread(AddressOf setD)

t5 = New Threading.Thread(AddressOf setE)

t6 = New Threading.Thread(AddressOf setF)

t7 = New Threading.Thread(AddressOf setG)

t8 = New Threading.Thread(AddressOf setH)

t9 = New Threading.Thread(AddressOf setI)

t10 = New Threading.Thread(AddressOf setJ)

错误》》》   t1.Start()

t2.Start()

t3.Start()

t4.Start()

t5.Start()

t6.Start()

t7.Start()

t8.Start()

t9.Start()

t10.Start()

Next

同楼上,每个Thread只能运行一次

vb.net 如何强制终止子线程?

使用api

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

vb.net 中我现实现,线程的暂停与开始!请教高手一下!请留下你的联系方式!

在你给textbox设置text值后直接使用sleep(),因为在使用sleep()的时候,当前的主进程是被挂起了,也就是说设置的text属性后,还来不及在屏幕上显示lbi的内容就执行了sleep,所以在执行sleep()挂起主进程前,你必须让textbox的内容先显示出来再执行sleep,可尝试使用下DoEvents()将控制权暂时移交一下,让系统有时机来刷新textbox里面的内容,让系统有机会来刷新textbox里面的内容。由于我没有安装visual studio的开发环境,无法调试代码的正确性,但我记得我以前也遇到此类问题,采取的DoEvents()的方式。你可尝试下。

lbl.Visible = True

Sleep(5000)

lbl.Text = "我是中国人"

lbi.Refresh '刷新一下lbi,具体你可以调试下,看需要不需要这条

Application.DoEvents() ‘设置完lbi的text属性,将操作权限释放一下,让系统有机会显示lbi的内容。

Sleep(3000) ’待显示后,再执行挂起

lbl.Text = "我爱自己的祖国"

lbi.Refresh ‘同上

Application.DoEvents() ’同上

DoEvents()的功能解释是:转让控制权,以便让操作系统处理其它的事件。

如执行一次不行,可尝试重复多执行几次,特别在循环语句中,对于窗口的刷新显示DoEvents特别有用,但是在循环体内使用了DoEvents后,当前进程的执行效率会有大幅降低,因为移交控制权必然损失当前进程的运行效率。


当前名称:vb.net线程中止,vb在程序运行模式下能够中断程序
文章出自:http://scyingshan.cn/article/hdepdd.html