VB.NET多线程使用例子

VB.NET多线程使用例子

’定义Delegate
Private Delegate Function testDelegate(ByVal objParam As Object) As String

‘多线程调用
Public Function testIf(ByVal objParam As Object) As String
Dim testCall As New testDelegate(AddressOf test)
testCall.BeginInvoke(objParam, Nothing, Nothing)
Return ""
End Function

’实际需要调用的代码
Private Function test(ByVal objParamReport As Object) As String
‘do something
End Functio