軟糖來(lái)回答羅:通過(guò)System.Diagnostics命名空間下的Process類(lèi)來(lái)關(guān)閉程序的進(jìn)程
創(chuàng)新互聯(lián)公司是一家專(zhuān)注于網(wǎng)站設(shè)計(jì)制作、成都做網(wǎng)站與策劃設(shè)計(jì),洪湖網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專(zhuān)注于網(wǎng)站建設(shè)10年,網(wǎng)設(shè)計(jì)領(lǐng)域的專(zhuān)業(yè)建站公司;建站業(yè)務(wù)涵蓋:洪湖等地區(qū)。洪湖做網(wǎng)站價(jià)格咨詢(xún):18982081108
Dim?進(jìn)程集合?=?Process.GetProcessesByName("進(jìn)程名稱(chēng)")
For?Each?進(jìn)程?In?進(jìn)程集合
進(jìn)程.Kill()
'進(jìn)程.Close()?'或者使用關(guān)閉
Next
也可以先獲取所有進(jìn)程,再來(lái)判斷這些進(jìn)程的名稱(chēng)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關(guān)閉文件夾的方法是:
1、判斷是否打開(kāi) 2、如果開(kāi)著就close
完整代碼如下 :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim myfolder As String = "C:\Test"
Dim OpenFolder As Object = CreateObject("shell.application")
For Each item In OpenFolder.Windows
'ComboBox1.Items.Add(item.document.folder.self.Path)
If item.document.folder.self.Path = myfolder Then
item.Quit()
End If
Next
End Sub
你都用.net了,這是vb的舊語(yǔ)法,不推薦使用。vb.net是面向?qū)ο蟮?,推薦您使用
dim OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
OpF.close
或是
Using OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
End Using
但是你如果執(zhí)意要用的話(huà),也可以:
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
...
FileClose(1) '這里可以同時(shí)關(guān)閉多個(gè)文件號(hào),文件號(hào)之間用,隔開(kāi)