如何用VB调用外部的应用程序

使用Shell函数来调租败用外部的应用程序。

Shell 函数

执行一个可执行文件，返回一个 Variant

(Double)，如果成功的话，代表厅型腊这个程序的任务 ID，若不成功，则会返回 0。

Shell 函数示例

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

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

Dim RetVal

RetVal = Shell("C:\WINDOWS\system32\CALC.EXE", 1)   ' 完成Calculator。

shell不行！

首先你要用搞好路径，如果是和你的程序在同一个程滚埋誉序包内的，要用相对路径，即App.Path 。比如你要打开VB所在路径的abc.doc。那么你可以这样：

Dim xx As String

xx = App.Path &"\" &"abc.doc"

i = ShellExecute(hwnd, "open", xx, vbNullString, vbNullString, 1)

只要在某个事件中加入这个就可以了。

如果不是同一个程序包内，要知道它的路径，用绝对路径。比如C盘的某液仿的文件abc.exe.

把上面的xx=?改为：

xx="c:\abc.exe"

就可以了！

提示一下，上面用了API函数。这里不能直接用shell函数，因为shell函数只能直接打开.com等等这样的。对于.doc等等这大段样的如果要用shell函数必须要告诉它的关联文件的路径，而对不同的计算机，关联文件的安装是不同的，所以不好实现。而API函数ShellExecute则会自动找到关联文件，并打开。

---