你都用.net了,這是vb的舊語(yǔ)法,不推薦使用。vb.net是面向?qū)ο蟮模扑]您使用
成都創(chuàng)新互聯(lián)提供高防主機(jī)、云服務(wù)器、香港服務(wù)器、綿陽(yáng)服務(wù)器托管等
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)
appid = Shell("explorer.exe c:\windows", vbNormalNoFocus)
If appid 0 Then Shell "Taskkill /PID " appid, vbHide
在vb中關(guān)閉所有被打開(kāi)的文件可以用close語(yǔ)句。如果指定要關(guān)閉的文件號(hào),那就只關(guān)閉指定的文件;否則,就關(guān)閉所有已經(jīng)打開(kāi)的文件。
軟糖來(lái)回答羅:通過(guò)System.Diagnostics命名空間下的Process類(lèi)來(lái)關(guān)閉程序的進(jìn)程
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
你都用.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)