手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp.Net编程>列表

Visual Basic .NET实现后台处理(下 )

来源:互联网 作者:西部数码 时间:2008-04-09
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

  实现

  我们将在一个类库项目中实现框架,这样就可以在任何需要执行后台处理的应用程序中使用它。

  打开Visual Studio .NET并建立一个叫做Background的新类库应用程序。因为该库包含一个Windows窗体控件和窗体,我们需要使用Add References对话框引用System.Windows.Forms.dll和System.Windows.Drawing.dll。此外,我们使用图6中显示的项目属性对话框可以导入这些全项目(project-wide)的名字空间。


   图6:使用项目属性添加全项目名字空间的导入

  这完成后我们准备写代码了。从建立接口开始。

  定义接口程序

  给项目添加一个叫IClient的类,代码如下:

Public Interface IClient

Sub Start(ByVal Controller As Controller)

Sub Display(ByVal Text As String)

Sub Failed(ByVal e As Exception)

Sub Completed(ByVal Cancelled As Boolean)

End Interface

  接着添加一个叫IWorker的类,代码如下:

Public Interface IWorker

Sub Initialize(ByVal Controller As IController)

Sub Start()

End Interface

  最后使用下面的代码添加一个叫IController的类:

Public Interface IController

ReadOnly Property Running() As Boolean

Sub Display(ByVal Text As String)

Sub SetPercent(ByVal Percent As Integer)

Sub Failed(ByVal e As Exception)

Sub Completed(ByVal Cancelled As Boolean)

End Interface

  这时我们已经定义了先前讨论过的类图中的所有接口。因此,现在我们可以实现Controller类。

  Controller类

  现在我们将实现框架的核心部分--Controller类。该类将包含启动工作线程的代码并在工作线程完成前,作为UI线程和工作线程的中介。

  给项目添加一个叫Controller的新类。首先我们将添加一个Imports并声明一些变量:

Imports System.Threading

Public Class Controller

Implements IController

Private mWorker As IWorker

Private mClient As Form

Private mRunning As Boolean

Private mPercent As Integer

  接着我们需要定义一些委托(delegate)。委托是指向方法的形式指针,并且某个方法的委托必须与该方法的特征(参数类型等)相同。

  在很多情况中使用委托。在本例中,它们非常重要,因为它们允许一个线程能调用窗体的方法,因此它运行在窗体的UI线程中。IClient所定义的三个窗体的方法都需要委托:

'本委托的特征与IClient.Completed匹配,用于安全地调用UI线程上的法

Private Delegate Sub CompletedDelegate(ByVal Cancelled As Boolean)

'本委托的特征与IClient.Display匹配,用于安全地调用UI线程上的法

Private Delegate Sub DisplayDelegate(ByVal Text As String)

'本委托的特征与IClient.Failed匹配,用于安全地调用UI线程上的法

Private Delegate Sub FailedDelegate(ByVal e As Exception)

  IClient也定义了Start方法,但我们将从UI线程自身中调用它,因此不需要委托。

  下一步写将被UI线程调用的代码。该代码包含constructor、Start、Cancel方法和Percent属性。我将这些写入一个区域(Region),可以使它们在UI线程中被调用时比较清晰。

#Region " Code called from UI thread "

' 使用客户(client)初始化controller

Public Sub New(ByVal Client As IClient)

mClient = CType(Client, Form)

End Sub

' 本方法被UI调用并在UI线程上运行。它启动工作线程

Public Sub Start(Optional ByVal Worker As IWorker = Nothing)

' 如果已经运行则产生一个错误信息

If mRunning Then

Throw New Exception("Background process already running")

End If

mRunning = True

' 保存worker对象的指针并初始化该对象,因此它有一个指向Controller的指针

mWorker = Worker

mWorker.Initialize(Me)

'创建后台线程作后台处理

Dim backThread As New Thread(AddressOf mWorker.Start)

'开始后台工作

backThread.Start()

' 告诉客户端后台工作开始了

CType(mClient, IClient).Start(Me)

End Sub

'本方法被UI调用并在UI线程上运行。它仅仅设置一个请求"取消"的标记

Public Sub Cancel()

mRunning = False

End Sub

' 返回完成的百分比值,只被UI线程调用

Public ReadOnly Property Percent() As Integer

Get

Return mPercent

End Get

End Property

#End Region

  唯一特别的代码是在Start方法中我们建立了工作线程然后启动它。

Dim backThread As New Thread(AddressOf mWorker.Start)

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!