vb打开另一个程序的代码

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

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

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

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

使用系统API函数ShellExecute实现打开文件。执行后会调用与要打开文件扩展名关联的程序打开这个文件。

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 Sub Form_click()

ShellExecute(Me.hwnd, "open", "z:\test.txt", "", "", 1)

End sub

函数参数及意义：

ShellExecute(

hWnd: HWND {指定父窗口句柄}

Operation: PChar 前尺{指定动作, 譬如: open、runas、print、edit、explore、find[2]  }

FileName: PChar {指定要打开的文件或程序}

Parameters: PChar {给要打开的程序指定参数 如果打开的是文件这里应该是 nil}

Directory: PChar {缺省目录}

ShowCmd: Integer {打开选项}

): HINST

ShowCmd 参数可选值:SW_HIDE = 0 {隐藏}

SW_SHOWNORMAL = 1 {用最近的大小和位置显示, 激活}

SW_NORMAL = 1 {同 SW_SHOWNORMAL}

SW_SHOWMINIMIZED = 2 {最缺竖小化, 激活}

SW_SHOWMAXIMIZED = 3 {最大化, 激活}

SW_MAXIMIZE = 3 {同 SW_SHOWMAXIMIZED}

SW_SHOWNOACTIVATE = 4 {用最近的大小和位置显示, 不激活}

SW_SHOW = 5 {同 SW_SHOWNORMAL}

SW_MINIMIZE = 6 {最小化, 不激活}

SW_SHOWMINNOACTIVE = 7 {同 SW_MINIMIZE}

SW_SHOWNA = 8 {同 SW_SHOWNOACTIVATE}

SW_RESTORE = 9 {同 SW_SHOWNORMAL}

SW_SHOWDEFAULT = 10 {同 SW_SHOWNORMAL}

SW_MAX = 10 {同 SW_SHOWNORMAL}

WIN8系统调用此函数慧扮高打开文件无效。

Shell

函数是以异步方式来调用其姿码他程序的。也就是说，用Shell启动的程序可能还没有完成执行过程，就已经执行到

Shell

函数之兄陪后的羡册蠢语句。

语法：Shell(pathname[,windowstyle])

说明：pathname：必要参数。Variant

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

例如：RetVal

=

Shell(″C:\WINDOWS\CALC.EXE″,

1)

′

调用计算器。

---