关于VB启动外部exe程序的代码

假设我做了一个程序1.exe 运行后点击上面的一个按钮 启动自身文件路径下的另一程序2.exe 如何实现?

VB可使用Shell 函数实现启动外部可执行程序。

Shell 函数,执行一个可执行文件,返回一个 Variant
(Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。

Shell 函数示例

本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。

Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)   ' å®ŒæˆCalculator。
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-02-19
程序运行目录的地址是 App.Path ,那么另一程序的地址就是 App.Path & "\2.exe"

至于调用的方式则有很多,比如
Shell App.Path & "\2.exe",vbNormal '逗号后面的是参数,表示的是窗口打开方式,具体可以问度娘
第2个回答  2013-02-19
虽然满意回答的答案可以用,不过建议还是在用app.path取路径的时候做个判断,判断路径是否是根目录,如果是根目录那个 app.path 返回的是带有 “\” 的,如果这样用shell app.path & "\2.exe" 那如果在根目录 假设D盘,那app.path & "\2.exe"结果就是 D\\2.exe 了。
可以下面这样判断

Shell IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "2.exe", vbNormalFocus
分开写就是

if Right(App.Path, 1) = "\" then
path=App.Path
else
paht=App.Path & "\"
end if
shell path & "2.exe"
第3个回答  2013-02-19
shell app.path & "\另一程序2.exe"本回答被提问者采纳
第4个回答  2013-02-19
楼上的回答的很好。

关于VB启动外部exe程序的代码
VB可使用Shell 函数实现启动外部可执行程序。Shell 函数,执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。Shell 函数示例 本示例使用 Shell 函数来完成一个用户指定的应用程序。' 将第二个参数值设成 1,可让该程序以正常大小的窗口完...

如何用VB调用一个外部EXE程序
a = Shell(App.Path & "\\TEMP.EXE")

vb打开另一个程序的代码
1、如果是打开已存在的程序(如 *.exe *.com 等文件),可以使用shell "完整路径\\完整文件名"。例打开计算器: shell "c:\\windows\\system32\\calc.exe",vbNormalFocus 2、打开当前工程的窗口,使用 窗口名.show 方法。例已有窗口名为frmA : frmA.show ...

vb中调用外部程序的代码
你可以用SHELL函数。如调用Windows“计算器”程序:Dim RetVal RetVal = Shell("C:\\WINDOWS\\CALC.EXE", 1)说明:①将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。②第二个参数可为下列值:0 窗口被隐藏,且焦点会移到隐式窗口。1 窗口具有焦点,且会还原到它原来的大小...

VB中如何让程序开机启动?
1:一种就是在安装软体时往注册表里添加,一种简单粗暴写个快捷方式丢到启动目录里,可以在安装软体时写个脚本bat解决。2:以在注册表里添加启动项,前提是有足够的权限,也可以创建一个快捷方式放在startup目录中,也也可以把程序注册成windows 服务, 运行方式为auto。3:vb中写一个代码让电脑一开机...

启动当前目录下的EXE文件的vb代码
Dim pid As Long pid = Shell(App.Path & "\\*.exe", vbNormalFocus)其中app.path表示当前目录 vb的shell函数用法:功能:执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。语法:Shell(pathname[,windowstyle]...

VB里如何实现点击按扭自动打开外部的.exe程序
必要时将那个免安装文件的运行文件创建一个快捷方式图标放到桌面上就可以了,挺简单的。引用相对路径打开程序的代码如下(假如你要打开的程序可执行文件放在和VB工程文件同级别的“程序”文件夹中):Private Sub 登陆_Click() X = Shell(App.Path & "\\程序\\update.exe", 1)End Sub ...

VB如何打开exe应用程序
"你所打开的目录"如果要打开 C:\\1.exe 就是 shell "C:\\1.exe"app.path &相当于取运行目录 shell app.path & "\\1.exe"这个就是打开取运行目录下的程序,比如说你编译的程序运行在C盘,那么shell app.path & "\\1.exe"就相当于 shell "C:\\1.exe"千万不要忘记“\\”符号 ...

关于VB怎么调用外部EXE后的参数
通常设为NULL INT nShowCmd \/\/文件打开的方式,以通常方式还是最大化或最小化显示 ) 用法:新建一个窗口,放入一个command按钮,复制下面代码到代码窗口中,其中:F:\\游戏\\Cs1.6中文版\\cstrike.exe为游戏路径。后边的那个为参数 -console 。Private Declare Function ShellExecute Lib "shell32.dll"...

请教各位高VB写了一个程序:xxx.exe,调用外部的程序aaa.exe,bbb.exe
aaa.exe代码:Private Sub Form_Load()If InStr(Command$, "start") <= 0 Then msgbox "错误"End End If End Sub xxx.exe代码 Private Sub Command1_Click()Shell "aaa.exe start", vbNormalFocus End Sub

相似回答