在Visual Basic 6.0中开启和停止程序

许多开发者依靠外壳命令（shell command）来从Visual Basic 6.0中开启或者终止程序。然而，你也可以通过使用API函数来达到这个目的。

开始编写代码

我们以创建一个用来计算指定日期（date）的第一天和最后一天的工程为例。启动Visual Studio并创建新工程。现在，添加三个控制按钮：cmdCheck、 cmdClose和cmdStart，如图A所示。

图A

现在，我们给这个工程添加代码。把下述代码加到普通事件定义区（the general declaration section event）：
Private sAppName As String, sAppPath As String

把清单A中的代码加到cmdCheck_Click()事件中。然后，再把下列代码加到cmdClose_Click()事件中：
'close application
Call EndTask(sAppName)

把下列代码加到cmdStart_Click()事件中：
'start an application
Shell sAppPath, vbMinimizedFocus

然后把下列代码加到事件Form_Load()：
sAppName = "Adobe Photoshop"
sAppPath = "D:program filesAdobePhotoshop 6.0Photoshp.exe"

在我们的例子中用到了程序Adobe Photoshop；你需要根据具体情况指定Photoshop的路径。添加一个module和清单B中的代码。按[Ctrl][F5]键运行本工程。

点击Check Status（检查状态）按钮，你会看到一个消息框，它告诉你本程序（Photoshop）停止运行了。现在，点击Start Application（运行程序）按钮，程序开始运行。点击Close Application（停止程序）按钮，你会发现程序窗口被关闭了。