主线程中的代码
Dim delegate1 As B3D4D69AF0E1DB8A7B7EE6FDelegate
delegate1 = AddressOf B3D4D69AF0E1DB8A7B7EE6F
Dim ar As System.IAsyncResult
Dim param(2) As Object
param(0) = Me
param(1) = delegate1
ar = delegate1.BeginInvoke(resStr, CallBackB3D4D69AF0E1DB8A7B7EE6FDelegate, param)
耗时的操作代码
Private Function B3D4D69AF0E1DB8A7B7EE6F(ByVal D7B89BE7F84108A1EF3ED31124D049() As String) As DataSet
Dim result As DataSet = Nothing
Try
Dim ws As New SRL.F408C4CE284F489C7B22E2461FE4BFSoapClient()
result = ws.E13F1B91BD3546FA93DC9F0B8CD56B7B(D7B89BE7F84108A1EF3ED31124D049) ‘web service访问，此操作很耗时
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return result
End Function
Delegate Function B3D4D69AF0E1DB8A7B7EE6FDelegate(ByVal D7B89BE7F84108A1EF3ED31124D049() As String) As DataSet ‘一定要定义，否则会出错
callback处理，上面的函数是返回dataset，所以这里线程结束后也是获取dataset
Private CallBackB3D4D69AF0E1DB8A7B7EE6FDelegate As AsyncCallback = AddressOf CallBackB3D4D69AF0E1DB8A7B7EE6F
Sub CallBackB3D4D69AF0E1DB8A7B7EE6F(ByVal ar As IAsyncResult)
Try
Dim delegate1 As B3D4D69AF0E1DB8A7B7EE6FDelegate = ar.AsyncState(1)
Dim r As DataSet = delegate1.EndInvoke(ar) '获取ws结果，然后操作这个结果
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。