在VB中异步执行程序

【 tulaoshi.com - 编程语言 】

----这种办法是利用VisualBasic提供的创建ActiveX部件的功能设计一个专门完成“大任务”的ActiveX部件。这里对ActiveX部件作如下简单介绍，以期适合不同的读者。VisualBasic所能设计的部件共有两种：一种是可视的部件；另一种是不可视的部件。ActiveX控件和窗体一起构成了应用程序与用户交互的界面，ActiveX文档使用在Internet应用程序中。由于我们的问题不涉及到可视的部件，所以这里不再赘述。

----不可视的部件又称为代码部件，包括ActiveDLL部件和ActiveXEXE部件两种。ActiveX部件的另一个名称是ActiveX服务器，之所以被称作服务器是由于ActiveX部件与使用它们的应用程序之间的关系可以被类比为服务器程序与客户端程序之间的关系：ActiveX部件封装了特定的功能或业务规则，应用程序不需要知道ActiveX部件是如何实现这些功能或业务规则的，只需要通过ActiveX部件提供的编程接口（API）传递应用程序的要求（通过属性或方法的参数），然后从部件的事件获得执行结果。根据ActiveX部件（ActiveX服务器）的执行方式可以把ActiveX部件分为进程内部件和进程外部件，所谓进程内部件即部件和使用它们的应用程序执行时共享同一个进程；而进程外部件却执行在自己的进程中，也可以这样认为：进程外部件的执行不影响使用它们的应用程序！显然，这个特性正是本文开始面对的那个问题所需要的。在部件中只有ActiveXEXE部件是进程外部件，因此利用这个特性我们可以创建一个ActiveXEXE部件来完成“大任务”，而应用程序窗体只显示一些任务的提示信息，直到ActiveXEXE部件的类的事件提示任务结束为止。这样应用程序就避免了那种呆板的“白布”窗体的出现，而能够响应任何来自用户的操作或者当从那些遮盖住它的程序切换回来时自行刷新。给用户的感觉是程序是在“异步”执行。

----下面我们通过例子来看如何实现这一想法：这个例子中，我们假设应用程序窗体是一个一直显示当前时间的数字时钟，当你使其执行“大任务”直到任务的完成，这期间你会发现数字时钟窗体从来就没有被“挂起”过，仍然能够响应你的拖动操作和不停地显示时间。以下是实现这一程序和ActiveXEXE部件的步骤及源代码：1.创建ActiveXEXE部件（BigJobServer）----步骤一：打开VisualBasic6.0新建一个VB工程，工程类型选择ActiveXEXE，在工程资源管理器中选中工程1，然后在属性窗口中将其名称改为BigJobServer。

----步骤二：为工程添加一个Timer控件的容器窗体（添加窗体通过菜单工程添加窗体完成）。窗体名称改为frmClock；在窗体上放置一个Timer控件（从工具箱中选择Timer控件），名称改为timClock。

----说明：添加该窗体的用意是提供一个执行任务的定时器（Timer控件）

----步骤三：设计实现“大任务”的类BigJob（注：代码部件是通过各种类实现应用程序交给它的任务的，关于类的创建请参考《手册》或MSDN文档），默认情况下当你新建ActiveXEXE部件时VisualBasic为你添加了一个名为Class1的类（要增加类通过菜单工程添加类模块完成），从工程资源管理器中选中Class1，然后在属性窗口中设置如下属性：

----（名称）：BigJob

----Instancing：5－MultiUse

----编写API：为类BigJob添加方法和事件（通过菜单工具添加过程完成）部分代码及程序说明如下：

PrivatefrmTimeClockAsfrmClock
　　'声明定时器容器窗体
　　PrivateWithEventsoTimerAsTimer
　　'声明定时器（包括其事件）
　　PublicEventJobStart()
　　'声明任务开始事件
　　PublicEventJobEnd()
　　'声明任务结束事件
　　
　　PrivateSubClass_Initialize()
　　'－－－－类初始化事件－－－－
　　'在这里创建定时器窗体frmTimeClock
　　'并引用定时器oTimer
　　SetfrmTimeClock=NewfrmClock
　　LoadfrmTimeClock
　　SetoTimer=frmTimeClock.timClock
　　oTimer.Enabled=False
　　EndSub
　　
　　PrivateSubClass_Terminate()
　　'类终止事件，
　　释放定时器并卸载定时器窗体
　　SetoTimer=Nothing
　　UnloadfrmTimeClock
　　EndSub
　　
　　PublicSubStartJob()
　　'方法－通知执行“大任务”
　　oTimer.Interval=100
　　'经过0.1秒时间开始执行任务
　　oTimer.Enabled=True
　　EndSub
　　
　　PrivateSubdoBigJob()
　　'模拟的“大任务”
　　是这个空耗时间的循环
　　'显然，这段代码在标准EXE程序中
　　一定会造成“挂起”状态!
　　DimlngTempAsLong
　　DimlngSumAsLong
　　
　　ForlngTemp=1To10000000
　　lngSum=lngSum＋1
　　Next
　　EndSub
　　
　　PrivateSuboTimer_Timer()
　　'定时器周期到时开始执行任务
　　oTimer.Enabled=False
　　RaiseEventJobStart'触发“开始执行”事件
　　doBigJob'执行“大任务”
　　RaiseEventJobEnd'触发“任务结束”事件
　　EndSub

----现在保存工程：选择菜单文件保存工程，根据提示窗口选择合适的文件夹保存所有工程资源（工程文件，窗体文件，类文件）。

----步骤二：最小化VisualBasic，然后启动另一个VisualBasic的实例，新建一个标准EXE工程。选择菜单工程引用，在可引用的部件中我们可以找到BigJobServer部件，选中该部件，按“确定”按纽返回，这样就建立了应用程序和部件服务器间的联系。现在可以在这个工程中创建BigJob类并使用其方法和事件了。

----步骤三：在默认的窗体Form1上放置如下控件并设置其属性（方法同前）：

　-width="20">类型->-width="20">名称->-width="40">标题（Caption属性）->-width="20">Label->-width="20">lblTime->-width="40">lblTime->-width="20">Label->-width="20">lblMessage->-width="40">lblMessage->-width="20">Timer->-width="20">timClock->-width="40">(无)->-width="20">Command->-width="20">cmdStart->-width="40">执行任务->

----步骤四：为该工程编写简单的代码：

OptionExplicit
　　DimWithEventsmyJobAsBigJob
　　'声明BigJob对像（包括事件）
　　PrivateSubForm_Load()
　　SetmyJob=NewBigJob'创建BigJob的实例
　　EndSub
　　
　　PrivateSubForm_Unload(CancelAsInteger)
　　SetmyJob=Nothing'释放对像
　　EndSub
　　
　　PrivateSubcmdStart_Click()
　　myJob.StartJob
　　'通知对像执行任务
　　EndSub
　　
　　PrivateSubmyJob_JobStart()
　　'在对像的“开始”
　　事件中给用户一些提示
　　lblMessage.Caption=“正在执行任务..."
　　EndSub
　　
　　PrivateSubmyJob_JobEnd()
　　'在对像的“结束”
　　事件中给用户一些提示
　　lblMessage.Caption=“任务完成！"
　　EndSub
　　
　　PrivateSubtimClock_Timer()
　　'“数字时钟”在不间断地
　　显示当前时间
　　lblTime.Caption=Format(Now,“HH:NN:SS")
　　EndSub

----步骤五：保存并运行这个测试工程，会看到如下结果：当你按下“执行任务”按纽后从提示可以知道那个可怕的“大任务”已经开始执行，直到程序提示任务结束，这期间无论是拖动窗体还是时间的显示均不会受到影响。由此可见程序被“挂起”的尴尬局面得到了解决。