Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
創(chuàng)新互聯(lián)公司自成立以來,一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設(shè)計、成都做網(wǎng)站、網(wǎng)站制作、電子商務(wù)、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個性化軟件開發(fā)等基于互聯(lián)網(wǎng)的全面整合營銷服務(wù)。公司擁有豐富的網(wǎng)站建設(shè)和互聯(lián)網(wǎng)應(yīng)用系統(tǒng)開發(fā)管理經(jīng)驗、成熟的應(yīng)用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開發(fā)工程師團隊及專業(yè)的網(wǎng)站設(shè)計師團隊。
'建立新的系統(tǒng)進程????
Dim?process?As?New?System.Diagnostics.Process()
If?RadioButton1.Checked?Then
'設(shè)置文件名,此處為圖片的真實路徑+文件名????
process.StartInfo.FileName?=?"c:\a.bmp"
'設(shè)置進程運行參數(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,此項也可不設(shè),但若設(shè)置必須為true????
'process.StartInfo.UseShellExecute?=?True
'此處可以更改進程所打開窗體的顯示樣式,可以不設(shè)????
'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框架的完全對向?qū)ο蟮木幊陶Z言,而vb6.0只是半面向?qū)ο蟮恼Z言,使用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() '獲取應(yīng)用程序的當前工作目錄 Process.Start(AppPath) '打開當前目錄 End Sub
我也找來的,只找到這個,希望對你有幫助。
網(wǎng)頁題目:vb.net打開cdr cdr vba教程
標題鏈接:http://muchs.cn/article10/doegpgo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、網(wǎng)站收錄、微信小程序、網(wǎng)站內(nèi)鏈、網(wǎng)站營銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)