Question

请教VB怎么调用其他程序？

假设我有2个文件：1.exe 和 2.xxx
（其中，xxx是文件2的后缀名，文件2.xxx通过程序1.exe打开）
那么我想用VB实现的效果为：
打开vb程序后，程序自动打开运行2.xxx，同时vb程序本身关闭。
也就是，VB的程序，只是想写一段如下意思的代码：
1、打开VB程序
2、vb会自动打开2.xxx
3、vb自动关闭自己（2.xxx保持正常运作）
另外，vb 1.exe 2.xxx 在同一个文件夹里，求助高手，这VB代码应该怎么弄啊？

Answer 1

以可执行文件方式打开（无论扩展名是不是exe）：
Dim iRet As Integer
iRet = Shell("calc.exe") 'iRet为程序运行后的PID
End '结束自身

以关联方式打开（例如扩展名为doc就用Word打开；bmp用画板打开；txt用记事本打开）：
把这两行代码粘到代码编辑窗口最上方：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

Dim iRet As Integer
iRet = ShellExecute(Me.hwnd, "open", "notepad.exe", "", "", SW_SHOW) ‘iRet为程序运行情况。

如果返回值 <= 32, 表示执行错误
0 内存不足
2 文件名错误
3 路径名错误
11 EXE 文件无效
26 发生共享错误
27 文件名不完全或无效
28 超时
29 DDE 事务失败
30 正在处理其他 DDE 事务而不能完成该 DDE 事务
31 没有相关联的应用程序