VB如何打开exe应用程序

用命令 shell

shell "你所打开的目录"

如果要打开 C:\1exe

就是 shell "C:\1exe"

apppath &相当于取运行目录

shell apppath &　"\1exe"

这个就是打开取运行目录下的程序，比如说你编译的程序运行在C盘，那么shell apppath &　"\1exe"就相当于 shell "C:\1exe"

千万不要忘记“\”符号

Private Sub Command1_Click()

Dim fuzhi

fuzhi = Shell("C:\qqEXE,1")

End Sub

上面语句中QQEXE的路径请改成正确路径

以下请参考如下MSDN说明:

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 函数不能打开命名的程序，则会产生错误

下面这个是启动记事本的，QQ也一样，只要把你QQ的启动程序的完整路径放进去就行了。

Private Sub Command1_Click()

Shell "c:\windows\system32\notepadexe", vbNormalFocus

End Sub

这个是DDE 方法 -》这2中方法是你自己写的程序生成exe后可以创建它的快捷方式 2楼说的打包是 软件安装时候提醒你创建快捷方式，vb有自带的打包工具

但是要修改一下那个step增加这个项目，

打包工具网上多的很，不过vb 自带的叶很好用 外接程序->外接程序管理器->打包

将程序建立成“启动”文件夹的捷径

添加一个text控件

Text1LinkTopic = "Progman|Progman"

Text1LinkMode = 2 '手动

Text1LinkExecute "[ShowGroup(启动, 4)]"

Text1LinkExecute "[AddItem(可执行文件完整路径, 捷径名称)]"

假设我们想把“c:\vb5db\myprogexe”建立成“启动”资料夹名称为“我的程序”的捷径，则最后一行的 LinkExecute 应该如下：

Text1LinkExecute "[AddItem(c:\vb5db\myprogexe, 我的程序)]"

这个是用的vbs获取启动文件夹的路径然后fillcopy就可以了

Set WshShell = CreateObject("Wscriptshell")

strDesktop = WshShellSpecialFolders("StartMenu")

以上就是关于VB如何打开exe应用程序全部的内容，包括:VB如何打开exe应用程序、VB里如何启动另外一个exe文件、VB按下按钮启动程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！