Imports System
Imports System.Threading
Imports System.Runtime.InteropServices
Imports System.Diagnostics
Imports System.Diagnostics.ThreadState
Module Module1
'定义异步方法
Delegate Function myAdds(ByVal num As Integer, <Out()> ByRef threadid As Integer) As Long
<MTAThread()> _
Sub Main()
'定义IAsyncResult
Dim myasyncresult As IAsyncResult
'定义需要异步执行的方法
Dim myadd As myAdds = New myAdds(AddressOf mythreadrun)
'定义计算结果存放处
Dim resultvalue As Long
'异步线程调用号
Dim threadid As Integer
'异步调用
myasyncresult = myadd.BeginInvoke(5000, threadid, Nothing, Nothing)
Thread.Sleep(0)
Console.Write("{0},开始执行线程,主线程{1}号正在等待", Now.ToLongTimeString, Thread.CurrentThread.ManagedThreadId)
'等待并执行其它代码
While Not myasyncresult.IsCompleted
Console.Write(".")
Thread.Sleep(10)
End While
'异步调用完成,返回结果
resultvalue = myadd.EndInvoke(threadid, myasyncresult)
'线程执行完毕
Console.WriteLine("{0}号线程计算结果为:{1}", threadid, resultvalue)
End Sub
Public Function mythreadrun(ByVal num As Integer, <Out()> ByRef threadid As Integer) As Long
Dim mynum As Integer
Dim jg As Long = 0
threadid = Thread.CurrentThread.ManagedThreadId
Try
For mynum = 1 To num
jg += mynum
Thread.Sleep(1)
Next
Console.WriteLine(threadid & "号线程 " & Now.ToLongTimeString & "线程运行完毕!")
Catch
Console.WriteLine(threadid & "号线程 " & Now.ToLongTimeString & "线程异常终止!")
'终止线程
Thread.CurrentThread.Abort()
End Try
Return jg
End Function
End Module
上面的代码中, 我们使用IAsyncResult的IsCompleted属性完成上节代码类似的功能,轮询工作线程,如果工作线程没有完成,则IsCompleted为False,则主线程继续自己的工作,输出一个点,同时再休眠10秒
While Not myasyncresult.IsCompleted
Console.Write(".")
Thread.Sleep(10)
End While
前面几个异步调用的例子,我们都在主线程对计算结果进行输出,我们下面把输出计算结果的工作移到回调方法中,启动异步调用,我们可以传递一个回调函数做为参数给BeginInvoke,由回调函数对工作线程,即被调用的线程的结果进行处理,主线程不再处理。
有几个小知识点
a)IAsyncResult.AsyncState 属性
获取用户定义的对象,它限定或包含关于异步操作的信息。
此属性返回一个对象,该对象是启动异步操作的方法的最后一个参数。
使用AsyncState 属性来向回调方法传递信息。
被调用者实现此属性以允许异步操作的调用方获取在操作开始指定的应用程序定义的对象。
调用者可以使用此对象将异步操作的状态信息传递给回调函数。
Public Sub myfinished(ByVal ar As IAsyncResult)
'回调函数完成将计算结果显示的功能,不再在主线程中显示计算结果
Dim threadid As Integer
Dim caller As myAdds = CType(ar.AsyncState, myAdds)
Dim returnvalue As Long = caller.EndInvoke(threadid, ar)
Console.WriteLine("工作线程{0}号执行完毕,计算结果为{1}", threadid, returnvalue)
End Sub
b)异步调用的最后一个参数就是传递给回调函数的,我们在这里把需要异步执行的方法myadd传入,方法对象会存入
IAsyncResult.AsyncState 属性中
myasyncresult = myadd.BeginInvoke(5000, threadid, AddressOf myfinished, myadd)
完整代码如下:
Imports System
Imports System.Threading
Imports System.Runtime.InteropServices
Imports System.Diagnostics
Imports System.Diagnostics.ThreadState
Module Module1
'定义异步方法
Delegate Function myAdds(ByVal num As Integer, <Out()> ByRef threadid As Integer) As Long
<MTAThread()> _
Sub Main()
'定义IAsyncResult
Dim myasyncresult As IAsyncResult
'定义需要异步执行的方法
Dim myadd As myAdds = New myAdds(AddressOf mythreadrun)
'定义计算结果存放处
Dim resultvalue As Long
'异步线程调用号
Dim threadid As Integer
'异步调用
myasyncresult = myadd.BeginInvoke(5000, threadid, AddressOf myfinished, myadd)
Console.WriteLine("{0},开始执行线程,主线程{1}号正在等待", Now.ToLongTimeString, Thread.CurrentThread.ManagedThreadId)
Thread.Sleep(0)
Console.WriteLine("工作线程正在运行,按任意健结束主线程.....")
Console.ReadLine()
End Sub
Public Function mythreadrun(ByVal num As Integer, <Out()> ByRef threadid As Integer) As Long
Dim mynum As Integer
Dim jg As Long = 0
threadid = Thread.CurrentThread.ManagedThreadId
Try
For mynum = 1 To num
jg += mynum
Thread.Sleep(1)
Next
Console.WriteLine(threadid & "号线程 " & Now.ToLongTimeString & "线程运行完毕!")
Catch
Console.WriteLine(threadid & "号线程 " & Now.ToLongTimeString & "线程异常终止!")
'终止线程
Thread.CurrentThread.Abort()
End Try
Return jg
End Function
Public Sub myfinished(ByVal ar As IAsyncResult)
'回调函数完成将计算结果显示的功能,不再在主线程中显示计算结果
Dim threadid As Integer
Dim caller As myAdds = CType(ar.AsyncState, myAdds)
Dim returnvalue As Long = caller.EndInvoke(threadid, ar)
Console.WriteLine("工作线程{0}号执行完毕,计算结果为{1}", threadid, returnvalue)
End Sub
End Module
- 大小: 47.7 KB
分享到:
相关推荐
最近收集的VB.Net-C#多线程Thread-代理委托delegate编程。文章列表: c#.net多线程同步.txt ...浅述WinForm多线程编程与Control.Invoke的应用.txt 微软.Net开发中的多线程编程总结.txt 线程中的参数传递.txt
VB.NET多线程编程技术--大量提高应用程序的性能[收集].pdf
vb.net2010数据库编程基础教程-数据绑定,使用控件方式连接数据库,图文教程
VB.NET判断网络连接状态
VB.NET应用教程第2版-童爱红-数据包 书本内的全部代码!
用VB.NET写的小计算器,之前看到一个,不过发现那个BUG挺多的,就自己写了一个,呵呵,仅供参考。打开里面的Caculate.vbproj文件,即可看到源代码。
使用VB.NET对PLC进行读写数据,方便快捷,对入门者有很好的编程
第8章-VB.NET与数据库应用程序10-10-25
AUTOCAD VBA&VB.NET开发基础与实例教程 c#
VB.net设计模式高级编程这本书的源码,网上已经找不到,特发出来共享。
vb.net多线程例子 ,创建了三个方法:TestMethod1, TestMethod2和TestMethod13,并且这三个方法功能相似,通过循环向输出设备输出
VB.NET实例解析应用编程 VB.NET实例解析应用编程 VB.NET实例解析应用编程
Developers guide to ASP.NET
AUTOCAD VBA&VB.NET开发基础与实例教程 c#
第一部分 Visual Basic.net基础 第二部分 vb.net的语法部分 第三部分 visual basic.net的运算 第四部分 visual basic.net的常用控件 第六部分 vb.net的OOP...第八部分 vb.net的多线程 第九部分 vb.net的文件和出错处理
VB.NET之SerialPort编程实例源码 直接使用
vb.net控件应用编程实例教程vb.net控件应用编程实例教程vb.net控件应用编程实例教程
VB.NET多线程编程 对于VB.NET的多线程进行了比较详细的解释
VB.NET高级篇教程
vb.net和sol server2000高级编程-创建高效数据层