| 在 Visual Basic .NET 中实现后台进程__教程 |
|
| 日期：2007-5-20 1:14:28 人气：359 [大 中 小] |
|
|
|
|
|
然后需要声明一些委托。委托是方法的正式指针，而且方法的委托必须具有与方法本身相同的方法签名（参数类型等）。
委托的用途很广。在我们的示例中，委托非常重要，因为委托使我们可以让一个线程调用窗体上的方法，使其在该窗体的 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 " 从 UI 线程调用的代码 "
' 使用客户端初始化 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
' 存储对辅助对象的引用，并
' 初始化辅助对象，使其包含
' 对 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)
backThread.Start()
要创建线程，需要在 Worker 对象的 IWorker 接口上传递 Start 方法的地址。然后，只需调用线程对象的 Start 方法即可开始操作。此时我们要特别注意，UI 不应直接与 Worker 交互，Worker 也不应直接与 UI 交互。
请注意，Cancel 方法只设置一个标志，表明我们不希望继续运行。辅助代码应定期查看此标志，以确定是否应该停止运行。
现在，我们可以实现 Worker 对象运行时将由辅助线程调用的代码。此代码比较有趣，因为它必须将 Display 和 Completed 从辅助线程中转至 UI 线程，同时还要在 UI 线程上完成此操作。
要完成此操作，我们可以使用 Form 对象的 Invoke 方法。此方法接受窗体应该调用的方法的委托指针，以及包含该方法的参数的 Object 类型数组。
Invoke 方法不直接调用窗体上的方法，而是请求窗体返回并使用窗体的 UI 线程调用该方法。此操作可通过向窗体发送 Windows 消息在后台完成。这说明窗体获得这些方法调用的方式与从操作系统中获得 click 或 keypress 事件的方式基本相同。
通常，这些细节不会影响大局。结果由 Invoke 方法触发一个进程，通过该进程窗体将终止其 UI 线程上运行的方法，这就是我们要实现的目标。
再次重申，此代码位于 Region 内，目的是为了明确它将在辅助线程上调用：
#Region " 从辅助线程调用的代码 "
' 从辅助线程调用，以更新显示
' 这将触发对包含状态文本的 UI 的
' 方法调用 - 该调用是在 UI 线程上
' 进行的
Private Sub Display(ByVal Text As String) _
Implements IController.Display
Dim disp As New DisplayDelegate( _
AddressOf CType(mClient, IClient).Display)
Dim ar() As Object = {Text}
' 调用 UI 线程上的客户端窗体
' 以更新显示
mClient.BeginInvoke(disp, ar)
End Sub
|
|
|
| 出处：本站原创 作者：佚名 |
|
|
