VB能运行程序吗？

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

VB能运行.exe的程序吗？

比如点个控件就能自动运行。

解析:

调用外部程序只需要用shell函数即可，如果加参数比如象你可能要调用一播放器并且让他播放放在一首歌曲

只需要按照一定的格式来添加参数即可

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。

shell()

=================================================================

举个白点的例子

Private Sub Command1_Click()

Shell "explorer.exe c:", 1

End Sub

在这里你只要单击一下按钮mand1就会用explorer.exe 打开c盘，explorer.exe是windows资源管理器,是你调用的程序，c:是打开explorer的一个参数，你如果加个d:，就会打开d盘

明白了吧

使用Shell函数函数。

Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。

Shell的语法：Shell(PathName[，WindowStyle])。

PathName 为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

示例，打开当前程序所在目录下的TEMP.EXE文件：

Dim a As Integer

a = Shell(App.Path &"\TEMP.EXE")

声明一个全局的布尔型变量（默认值为False），然后在点击第一个按钮时把这个变量的值设为True，在点击第二个按钮时判断这个变量的值是否为True，是则执行你所谓的“运行一个程序”，再把变量重新恢复为False（以便再次执行）。下面是例子：

Dim f As Boolean

Private Sub Command1_Click()

f = True

End Sub

Private Sub Command2_Click()

If f Then

'运行一个程序

f = False

End If

End Sub

---