VB里如何实现点击按扭自动打开外部的.exe程序

Question

我是菜鸟，请发傻瓜代码。就是我在VB软件里做了一个按扭。并且生成了.exe的文件 。我在外面打开这个.exe文件时点击启动。然后就会启动桌面上的.exe文件。看不到浏览什么的。直接启动。哪位大侠解决一下。 不差分。

Answer 1

可以把你要打开的那个些程序的可执行文件放在和你的过程文件同一个文件夹（或者更深级别的文件夹）中，然后在那个代码中使用相对路径取得那些可执行文件名打开就可以了，这样不管你要打开的那些程序放在什么地方，这样和你的工程文件的相对位置保持不变，就不会有问题的，有必要时可以将VB工程文件生成可执行文件，然后制作成免安装程序，这样即使到了没有安装VB6的电脑上，也可以正常运行的，必要时将那个免安装文件的运行文件创建一个快捷方式图标放到桌面上就可以了，挺简单的。引用相对路径打开程序的代码如下（假如你要打开的程序可执行文件放在和VB工程文件同级别的“程序”文件夹中）：Private Sub 登陆_Click() X = Shell(App.Path & "\程序\update.exe", 1)End Sub

Answer 2

做软件一般不使用绝对路径，而使用相对路径对于自己写的软件，一般都与程序同文件夹下，用app.path &"\abc.exe" 对于其他软件，你可以加个设置，比如设置登录程序，用个commdialog去流览这个update.exe文件，然后保存这个路径，下次直接使用这个就行了，

Answer 3

太简单了在button1_click()中加入Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) C:\WINDOWS\CALC.EXE换成你要启动的文件路径，就全部OK了

Answer 4

拷贝到别的机器上会改变路径，所以应该取得路径再shell调用，把你的update.exe和你的程序文件放在一个目录中，随便拷贝到哪都能运行：Private Sub 登陆_Click()
Shell App.Path & "\update.exe", vbNormalFocus
End Sub

Answer 5

用shell如；打开记事本程序Private Sub Command1_Click()
Shell "notepad.exe", vbNormalFocus
End Sub