Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
創(chuàng)新互聯(lián)公司自成立以來,一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設計、成都做網(wǎng)站、網(wǎng)站制作、電子商務、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個性化軟件開發(fā)等基于互聯(lián)網(wǎng)的全面整合營銷服務。公司擁有豐富的網(wǎng)站建設和互聯(lián)網(wǎng)應用系統(tǒng)開發(fā)管理經(jīng)驗、成熟的應用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開發(fā)工程師團隊及專業(yè)的網(wǎng)站設計師團隊。
'建立新的系統(tǒng)進程????
Dim?process?As?New?System.Diagnostics.Process()
If?RadioButton1.Checked?Then
'設置文件名,此處為圖片的真實路徑+文件名????
process.StartInfo.FileName?=?"c:\a.bmp"
'設置進程運行參數(shù)????
process.StartInfo.Arguments?=?"rundll32.exe?shimgvw.dll"
Else
process.StartInfo.FileName?=?"mspaint.exe"
process.StartInfo.Arguments?=?"c:\a.bmp"
End?If
'此項為是否使用Shell執(zhí)行程序,因系統(tǒng)默認為true,此項也可不設,但若設置必須為true????
'process.StartInfo.UseShellExecute?=?True
'此處可以更改進程所打開窗體的顯示樣式,可以不設????
'process.StartInfo.WindowStyle?=?System.Diagnostics.ProcessWindowStyle.Hidden
process.Start()
process.Close()
End?Sub
Process.Start(“cad主程序的路徑”,“要打開文件的目錄”)
比如用記事本打開 c:\1.txt
Process.Start("C:\Windows\notepad.exe", "c:\1.txt")
vb.net保存后在菜單文件中打開。
在菜單中文件中選擇生成EXE文件,然后打開Exe文件就可以了。
VB.NET是基于.NET框架的完全對向對象的編程語言,而vb6.0只是半面向對象的語言,使用vb.net可以編制出功能更加強大的windows程序。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim AppPath As String = Directory.GetCurrentDirectory() '獲取應用程序的當前工作目錄 Process.Start(AppPath) '打開當前目錄 End Sub
我也找來的,只找到這個,希望對你有幫助。