建站
咨詢
售后
建站咨詢
新聞中心
vb.net 怎么結(jié)束進(jìn)程
好像不難吧？
南靖ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：13518219792（備注：SSL證書合作）期待與您的合作！
我放進(jìn)了Button1的Click事件里。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo Errmessages '在做系統(tǒng)操作時加排錯標(biāo)簽是個好習(xí)慣
Dim TargetName As String = "ibmdict" '存儲進(jìn)程名為文本型，注：進(jìn)程名不加擴(kuò)展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進(jìn)程名獲取進(jìn)程
Dim TargetPath As String '存儲進(jìn)程路徑為文本型
If TargetKill.Length 1 Then '判斷進(jìn)程名的數(shù)量，如果同名進(jìn)程數(shù)量在2個以上，用For循環(huán)關(guān)閉進(jìn)程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判斷進(jìn)程名的數(shù)量，沒有發(fā)現(xiàn)進(jìn)程直接彈窗。不需要的，可直接刪掉該If子句
MsgBox("沒有發(fā)現(xiàn)進(jìn)程！")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判斷進(jìn)程名的數(shù)量，如果只有一個，就不用For循環(huán)
TargetKill(0).Kill()
End If
MsgBox("已終止" TargetKill.Length "個進(jìn)程") '彈窗提示已終止多少個進(jìn)程
Errmessages: ‘定義排錯標(biāo)簽
If Err.Description Nothing Then ’判斷有無錯誤，如果有，則 ↓
MsgBox(Err.Description) '當(dāng)出現(xiàn)錯誤時，彈窗提示
End If
End Sub
可根據(jù)需要自行修改，這個備注夠完善了吧？不會的再Hi我。
vb.net 如何強(qiáng)制終止子線程？
使用api
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
vb.net，等待一個線程結(jié)束的問題
如果需要等待T2線程結(jié)束，那又何必開啟這個線程！！
直接：
Label1.Visible = True
setB()
MsgBox("d")
這不就是執(zhí)行完setB()，再執(zhí)行MsgBox("d")，多線程是多余的。
多線程的作用大多數(shù)也就用來同時執(zhí)行多任務(wù)而不用等待的。
當(dāng)前名稱：vb.net終止線程 vb中結(jié)束程序運(yùn)行的代碼
文章地址：http://www.dlmjj.cn/article/dddpehp.html
