本文实例主要实现了VB调用外部exe程序来运行的功能，这里主要是使用shell函数来执行，shell函数主要用来打开一个外部的exe可执行文件，例如，在sub模块内：Shell "notepad", vbNormalFocus，代表以正常模式运行记事本程序，vbNormalFocus是shell的参数，意思是正常模式，当然它还有vbMaximizedFocus最大化模式,vbMinimizedFocus最小化模式,vbHide隐藏模式等多种运行方式可选择。
具体的代码例子及注释如下：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3030
ClientLeft = 120
ClientTop = 450
ClientWidth = 4560
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4560
StartUpPosition = 3 '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Shell "notepad", vbNormalFocus
'shell函数可以用来运行一个外部可执行文件
'它的参数有:程序名(假如那个程序在不同文件夹,并且不是系统文件,则需要详细路径),运行方式
'假设你想要运行C盘根目录的ABC.EXE,则第一个参数需要:"C:\\ABC.EXE"
'顺带:如果路径或文件名中有空格的话,你还得在路径两边加双引号(建议不管有没有空格都加双引号),像这样:"""C:\\1 2.exe"""
'第二个参数常用参数有:vbNormalFocus正常模式,vbMaximizedFocus最大化模式,vbMinimizedFocus最小化模式,vbHide隐藏模式
End Sub
|
该程序运行后将直接打开Windows记事本程序，有兴趣的读者可以试着打开其它的可执行程序测试运行效果，或者进行个性化的修改以实现更为丰富的功能。