vb.net 怎么結(jié)束進(jìn)程

好像不難吧？

創(chuàng)新互聯(lián)長期為近千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為讓胡路企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、成都網(wǎng)站制作，讓胡路網(wǎng)站改版等技術(shù)服務(wù)。擁有十年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

我放進(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)操作時(shí)加排錯(cuò)標(biāo)簽是個(gè)好習(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個(gè)以上，用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ù)量，如果只有一個(gè)，就不用For循環(huán)

TargetKill(0).Kill()

End If

MsgBox("已終止" TargetKill.Length "個(gè)進(jìn)程") '彈窗提示已終止多少個(gè)進(jìn)程

Errmessages: ‘定義排錯(cuò)標(biāo)簽

If Err.Description Nothing Then ’判斷有無錯(cuò)誤，如果有，則 ↓

MsgBox(Err.Description) '當(dāng)出現(xiàn)錯(cuò)誤時(shí)，彈窗提示

End If

End Sub

可根據(jù)需要自行修改，這個(gè)備注夠完善了吧？不會的再Hi我。

怎樣才能用VB.NET的代碼來關(guān)閉一個(gè)在運(yùn)行的程序

軟糖來回答羅：通過System.Diagnostics命名空間下的Process類來關(guān)閉程序的進(jìn)程

Dim?進(jìn)程集合?=?Process.GetProcessesByName("進(jìn)程名稱")

For?Each?進(jìn)程?In?進(jìn)程集合

進(jìn)程.Kill()

'進(jìn)程.Close()?'或者使用關(guān)閉

Next

也可以先獲取所有進(jìn)程，再來判斷這些進(jìn)程的名稱ProcessName

Dim?獲取本地所有進(jìn)程?=?Process.GetProcesses()

For?Each?進(jìn)程?In?獲取本地所有進(jìn)程

If?進(jìn)程.ProcessName?=?"explorer.exe"?Then?進(jìn)程.Kill()

Next

vb.net中如果打開一個(gè)窗體的同時(shí)關(guān)閉另一個(gè)窗體呀

定義一個(gè)公共變量： CurForm AS STRING=""再定義一個(gè)公共函數(shù)： Public Sub FrmUnload(ByVal myFrm As Form)

'關(guān)閉已經(jīng)打開的窗口

Try

If myFrm.Name "FrmMain" Then

myFrm.Close()

End If

Catch ex As Exception End Try

End Sub每次在打開新窗體前先調(diào)用關(guān)閉窗口公共函數(shù)：FrmUnload(CurForm)然后將當(dāng)前打開窗體名稱賦值給變量 CurForm如果還看不懂那我也沒辦法了！沒有懸賞分?jǐn)?shù)的問題一般不會回答的！破例

vb.net如何徹底退出進(jìn)程？

主窗體代碼調(diào)用Me.close不就可以了嗎？或者在任意代碼處調(diào)用Application.Exit()。如果不起作用的話是因?yàn)槟阍诖绑w關(guān)閉的事件中調(diào)用了e.Handle=True

vb.net如何打開一個(gè)新窗體后關(guān)閉上一個(gè)窗體

1、如果上一個(gè)窗體是程序的主窗體（默認(rèn)是程序的第一個(gè)窗體），

則不能關(guān)閉這個(gè)窗體，只能隱藏（Me.Hide()）這個(gè)窗體，否則整

個(gè)程序就被關(guān)掉了。

2、如果上一個(gè)窗體不是程序的主窗體，可以用Me.Close()

關(guān)閉。

怎樣用vb程序來關(guān)閉其它應(yīng)用程序

你可以使用API函數(shù)FindWindow和PostMessage來尋找一個(gè)窗口并且關(guān)閉它。下面的范例演示如何關(guān)閉一個(gè)標(biāo)題為"Calculator"的窗口。

'下面的代碼放到模塊中

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'FindWindowAPI函數(shù)

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'PostMessageAPI函數(shù)

Public Const WM_CLOSE = H10 '常用變量定義

'程序代碼

Dim winHwnd As Long '定義一個(gè)長整形變量winHwnd

Dim RetVal As Long '定義一個(gè)長整形變量RetVal

winHwnd = FindWindow(vbNullString, "Calculator") 'API函數(shù)查找"Calculator"這個(gè)窗口

Debug.Print winHwnd '顯示這個(gè)窗口句柄

If winHwnd 0 Then '如不為0,表示找到窗口

RetVal = PostMessage(winHwnd, WM_CLOSE, 0, 0) '向這個(gè)窗口發(fā)送關(guān)閉信息

If RetVal = 0 Then '如果返回信息為0.表示失敗，未發(fā)送成功

MsgBox "Error posting message." '提示發(fā)送失敗

End If

Else

MsgBox "The Calculator is not open." '提示沒有找到打開的程序

End If