怎么用VB打开另外一个程序

是的。或用ShellExecute

Shell 函数

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

语法

Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

部分 描述

pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。

Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。

windowstyle 命名参数有以下这些值：

常量 值 描述

vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。

VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。

VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。

VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

说明

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。

注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

Shell 函数示例

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

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

Dim RetVal

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

第一步：打开VisualBasic；

第二步：在主页面添加八个按钮控件；

接下来可以按要求两种选择方式：

一、用源代码。

将八个程序的源代码FRM文件拷贝到新程序的源代码里；

将按钮控件设置为指向指定的frm文件。

例子:

Private

Sub

xx_Click()

formxx.Show

End

Sub

二、用exe文件。

在按钮控件代码窗口写：

Call

Shell("x:xx/xx.exe",

vbNormalFocus)

其中x:xx/xx.exe是各个exe文件的路径。

例子：

Private

Sub

xx_Click()

Call

Shell("c:\xx.exe",

vbNormalFocus)

End

Sub

1、如果是打开已存在的程序（如 *.exe *.com 等文件），可以使用shell "完整路径\完整文件名"。

例打开计算器： shell "c:\windows\system32\calc.exe",vbNormalFocus

2、打开当前工程的窗口，使用 窗口名.show 方法。

例已有窗口名为frmA : frmA.show

---