怎樣才能用VB.NET的代碼來關閉一個在運行的程序

軟糖來回答羅：通過System.Diagnostics命名空間下的Process類來關閉程序的進程

專注于為中小企業(yè)提供網站制作、網站建設服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)甕安免費做網站提供優(yōu)質的服務。我們立足成都，凝聚了一批互聯(lián)網行業(yè)人才，有力地推動了近千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網站建設實現(xiàn)規(guī)模擴充和轉變。

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

For?Each?進程?In?進程集合

進程.Kill()

'進程.Close()?'或者使用關閉

Next

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

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

For?Each?進程?In?獲取本地所有進程

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

Next

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 '在做系統(tǒng)操作時加排錯標簽是個好習慣

Dim TargetName As String = "ibmdict" '存儲進程名為文本型，注：進程名不加擴展名

Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進程名獲取進程

Dim TargetPath As String '存儲進程路徑為文本型

If TargetKill.Length 1 Then '判斷進程名的數(shù)量，如果同名進程數(shù)量在2個以上，用For循環(huán)關閉進程。

For i = 0 To TargetKill.Length - 1

TargetPath = TargetKill(i).MainModule.FileName

TargetKill(i).Kill()

Next

ElseIf TargetKill.Length = 0 Then '判斷進程名的數(shù)量，沒有發(fā)現(xiàn)進程直接彈窗。不需要的，可直接刪掉該If子句

MsgBox("沒有發(fā)現(xiàn)進程！")

Exit Sub

ElseIf TargetKill.Length = 1 Then '判斷進程名的數(shù)量，如果只有一個，就不用For循環(huán)

TargetKill(0).Kill()

End If

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

Errmessages: ‘定義排錯標簽

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

MsgBox(Err.Description) '當出現(xiàn)錯誤時，彈窗提示

End If

End Sub

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

vb.net如何徹底退出進程？

主窗體代碼調用Me.close不就可以了嗎？或者在任意代碼處調用Application.Exit()。如果不起作用的話是因為你在窗體關閉的事件中調用了e.Handle=True

窗體的退出事件 vb.net

既然是VB.NET，那么，窗體關閉的事件，是.net framework提供的，是FormClosed事件。也是兩個參數(shù)，一個object sender這個是object基類，整個.net framework都是從它派生的，一個 EventArgs e，事件處理基類，一切事件是從EventArgs基類派生出來的。

如何實現(xiàn)VB.NET退出程序保存設置

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

SaveSetting("appname", "Startup", "text1", TextBox1.Text)

SaveSetting("appname", "Startup", "text2", TextBox2.Text)

End Sub

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

Dim text1 As Double

Dim text2 As Double

text1 = GetSetting("appname", "startup", "text1", 8)

text2 = GetSetting("appname", "Startup", "text2", 6)

TextBox1.Text = text1

TextBox2.Text = text2

End Sub

當前題目：vb.net退出過程,vb退出循環(huán)
分享路徑：http://chinadenli.net/article26/dsgejcg.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供網站設計公司、定制網站、網站營銷、網站設計、網站制作、自適應網站

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)