第19章编写具有多个线程运行的应用程序.pptVIP

分析： 由于任务发生异常、被取消或者正常完成，均会触发RunWorkerCompleted事件，因此在该事件的处理过程中，需要区分三种情况：如果出现异常，则RunWorkerCompletedEventArgs类型的参数e的Error属性包含了异常的信息；如果被取消，则e的Cancelled属性被设置为True；如果正常完成，则e的Result属性包含了计算结果。根据不同的情况分别设置lblMessage控件的Text属性以完成结果显示。 运行结果 19.3.2 Timer组件 该Timer组件则位于System.Timers 命名空间，称为服务器计时器。 位于工具箱组件选项卡中的Time组件是一个实现按用户定义的时间间隔引发事件的计时器，位于System.Windows.Forms命名空间，是一个专为单线程设计的计时器，称为Windows计时器。 二者区别 服务器计时器是为在多线程环境下与辅助线程一起使用而设计的。由于二者使用不同的体系结构，因此基于服务器的计时器可能比 Windows 计时器精确得多。 服务器计时器可以在线程之间移动来处理引发的事件。 创建 Timer 组件的实例 两种方法： 一是将其添加到工具箱中； 二是通过代码创建Timer组件的实例。 第一种方法 在【工具】菜单上单击【选择工具箱项】，在打开的【选择工具箱项】窗口中再单击【.NET Framework组件】选项卡， ，勾选【System.Timers】命名空间中的【Timer】复选框。 之后，直接将Timer图标拖动到窗体上，即可为该窗体添加一个服务器计时器。 第二种方法 用编程方式创建 Timer组件的实例，代码如下。 1 Dim myTimer As New System.Timers.Timer( ) 2 myTimer.Interval = 3000 3 myTimer.Enabled = True 常用属性 属性 说明 Interval 设置计时器间隔，单位为毫秒 Enabled 只是是否启用计时器，以定义的时间间隔触发事件 AutoReset 指示计时器是否在启动后重新启动。当AutoReset设置为false时，Timer 只在第一个 Interval 过后引发一次Elapsed事件。若要保持以Interval时间间隔引发Elapsed事件，请将 AutoReset 设置为 true。 唯一事件 事件 说明 Elapsed 间隔已过时触发该事件。该事件在ThreadPool线程上引发。如果Elapsed事件的处理时间比Interval长，在另一个 ThreadPool线程上将会再次引发此事件。因此，该事件的处理程序应当是可重入的 常用方法 方法 说明 Start 通过将Enabled设置为true开始引发Elapsed事件 Stop 通过将Enabled设置为false停止引发Elapsed事件 Close 释放由Timer占用的资源。 示例：窗体渐变退出 界面设计： 在窗体加载的时候初始化计时器。 下面代码是窗体的Load事件过程，完成计时器的初始化。 1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 2 初始化计时器 3 Timer1.Interval = 100 4 Timer1.AutoReset = True 5 Timer1.Enabled = False 6 End Sub 单击【渐变退出】按钮后，启动计时器。 下面代码是【渐变退出】按钮的Click事件过程，启动计时器。 1 Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click 2 btnClose.Enabled = False 将窗体关闭按钮设置为不可用，防治在渐变过程中用户再次单击【关闭】按钮。 3 Timer1.Start() 启动TIMER开始计时 4 End Sub 5 计时器启动后，每个100毫秒便触发Elapsed事件，该事件的处理过程如下 6 Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEven