使用VisualBasic编写应用程序的开发.docxVIP

使用 Visual Basic 编写应用程序的开发人员一定都遇到过这样的情形：当你的应用程序要完成一个比较大的任务时，并且该任务是那种“独占式”的任务（比如：使用函数 FileCopy 复制一个超过 50MB 的文件），如果不对程序作出特殊的处理，则用户将被迫面对一个像是被“挂起”的窗体，任凭你用鼠标怎样点击也没有任何反应，更糟糕的是当你从屏幕保护程序切换回该程序时会看到程序的窗体变成了一块“白布”，这更加给人一种“死机”的感觉。如何避免这种尴尬的界面出现呢？笔者在实践中发现了一种简单的办法，在这里介绍给大家，希望能对您有所帮助 这种办法是利用 Visual Basic 提供的创建 ActiveX 部件的功能设计一个专门完成“大任务”的 ActiveX 部件。这里对 ActiveX 部件作如下简单介绍，以期适合不同的读者。Visual Basic 所能设计的部件共有两种：一种是可视的部件；另一种是不可视的部件。ActiveX 控件和窗体一起构成了应用程序与用户交互的界面，ActiveX 文档使用在 Internet 应用程序中。由于我们的问题不涉及到可视的部件，所以这里不再赘述。 不可视的部件又称为代码部件，包括 ActiveX DLL 部件和 ActiveX EXE 部件两种。ActiveX 部件的另一个名称是 ActiveX 服务器，之所以被称作服务器是由于 ActiveX 部件与使用它们的应用程序之间的关系可以被类比为服务器程序与客户端程序之间的关系：ActiveX 部件封装了特定的功能或业务规则，应用程序不需要知道 ActiveX 部件是如何实现这些功能或业务规则的，只需要通过 ActiveX 部件提供的编程接口（API）传递应用程序的要求（通过属性或方法的参数），然后从部件的事件获得执行结果。根据 ActiveX 部件（ActiveX 服务器）的执行方式可以把 ActiveX 部件分为进程内部件和进程外部件，所谓进程内部件即部件和使用它们的应用程序执行时共享同一个进程；而进程外部件却执行在自己的进程中，也可以这样认为：进程外部件的执行不影响使用它们的应用程序！显然，这个特性正是本文开始面对的那个问题所需要的。在部件中只有 ActiveX EXE 部件是进程外部件，因此利用这个特性我们可以创建一个 ActiveX EXE 部件来完成“大任务”，而应用程序窗体只显示一些任务的提示信息，直到 ActiveX EXE 部件的类的事件提示任务结束为止。这样应用程序就避免了那种呆板的“白布”窗体的出现，而能够响应任何来自用户的操作或者当从那些遮盖住它的程序切换回来时自行刷新。给用户的感觉是程序是在“异步”执行。 下面我们通过例子来看如何实现这一想法：这个例子中，我们假设应用程序窗体是一个一直显示当前时间的数字时钟，当你使其执行“大任务”直到任务的完成，这期间你会发现数字时钟窗体从来就没有被“挂起”过，仍然能够响应你的拖动操作和不停地显示时间。以下是实现这一程序和 ActiveX EXE 部件的步骤及源代码： 1.创建 ActiveX EXE 部件（BigJobServer） 步骤一：打开 Visual Basic 6.0 新建一个 VB 工程，工程类型选择 ActiveX EXE，在工程资源管理器中选中工程1，然后在属性窗口中将其名称改为 BigJobServer。 步骤二：为工程添加一个 Timer 控件的容器窗体（添加窗体通过菜单 工程-添加窗体 完成）。窗体名称改为 frmClock；在窗体上放置一个 Timer 控件（从工具箱中选择 Timer 控件），名称改为 timClock。 说明：添加该窗体的用意是提供一个执行任务的定时器（Timer 控件） 步骤三：设计实现“大任务”的类 BigJob（注：代码部件是通过各种类实现应用程序交给它的任务的，关于类的创建请参考《手册》或 MSDN 文档），默认情况下当你新建 ActiveX EXE 部件时 Visual Basic 为你添加了一个名为 Class1 的类（要增加类通过菜单 工程-添加类模块 完成），从工程资源管理器中选中 Class1，然后在属性窗口中设置如下属性： 名称）：BigJob Instancing：5-MultiUse 编写API：为类 BigJob 添加方法和事件（通过菜单工具添加过程完成）部分代码及程序说明如下： Private frmTimeClock As frmClock 声明定时器容器窗体 Private WithEvents oTimer As Timer 声明定时器（包括其事件） Public Event JobStart() 声明任务开始事件 Public Event JobEnd()