兩種方法
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)建站!專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、成都小程序開發(fā)、集團企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了大悟免費建站歡迎大家使用!
1.
Shell(""Explorer.exe", AppWinStyle.NormalFocus")
2.
Dim proc As New Process
proc.StartInfo.FileName="Explorer.exe"
proc.Start
方法2給予更多的控制,如結(jié)束進程的方法Kill
第一步,新建項目。
1
打開vb.net,也就是打開Microsoft visual studio 2010,第一次使用的時候設(shè)置為basic語言就行。新建項目--打開excel。
2
新建成功。
END
第二步,添加引用。
1
“項目”--“添加引用”。
2
添加Microsoft Excel 14.0 Object Library。
END
第三步,添加打開文件對話框工具。
1
工具箱--對話框--openfiledialog。
2
添加成功。
END
第四步,添加命令按鈕控件。
1
工具箱--公共控件--button。
在控件上右擊鼠標,進入屬性設(shè)置。
2
text屬性設(shè)置為“打開excel”。
3
name屬性也設(shè)置為“打開excel”。
END
第五步,編寫程序。
1
鼠標雙擊命令按鈕,進入編程界面,編寫程序。
END
第六步,運行程序。
1
鼠標單擊啟動調(diào)式圖標,程序開始運行。
2
單擊打開excel命令按鈕,調(diào)用打開文件對話框,選擇自己要打開的excel文件。
END
第七步,保存程序。
第一次程序運行完,關(guān)閉程序,出現(xiàn)關(guān)閉項目提示,選擇保存。
2
選好自己要保存的位置。
系統(tǒng)bug,網(wǎng)絡(luò)問題。
1、系統(tǒng)bug是vb.net外接軟件系統(tǒng)出現(xiàn)了問題導(dǎo)致程序不顯示菜單,等待官方修復(fù)即可。
2、網(wǎng)絡(luò)問題是自身設(shè)備連接的網(wǎng)絡(luò)出現(xiàn)較大波動,導(dǎo)致vb.net外接程序不顯示菜單,更換網(wǎng)絡(luò)重新打開即可。
因為process.start(EXEA)是VB.net
debug下這個exe打開的,所以如果EXEA里面用到了相對路徑,那必然是指向VB.net
debug下的,除非在EXEA中使用絕對路徑,如果EXEA你無法更改則只能用VB.net
debug下這個exe來控制了,比如EXEA如果要在他自己的目錄下去找一個文件,那你就用exe把這個文件復(fù)制到VB.net
debug下
使用Shell函數(shù)函數(shù)。
Shell函數(shù)是VB中的內(nèi)部函數(shù),它負責執(zhí)行一個可執(zhí)行文件,返回一個Variant(Double),如果成功的話,代表這個程序的進程ID,若不成功,則會返回0。
Shell的語法:Shell(PathName[,WindowStyle])。
PathName 為必需參數(shù)。類型為String,它指出了要執(zhí)行的程序名,以及任何需要的參數(shù)或命令行變量,也可以包括路徑名。
WindowStyle為可選參數(shù)。Integer類型,指定在程序運行時窗口的樣式。WindowStyle有以下這些值。
示例,打開當前程序所在目錄下的TEMP.EXE文件:
Dim a As Integer
a = Shell(App.Path "\TEMP.EXE")
比如要按下一個按鈕來啟動C:\abc.exe程序。
VB6的代碼如下:
Private
Sub
Command1_Click()
Shell
("c:\abc.exe")
End
Sub
VB.Net的代碼如下:
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
Process.Start("c:\abc.exe")
End
Sub