vb.net异步处理 vba 异步( 二 )


接下来我们看看stateObject,这个东西被称为状态对象 。于是大家就可能奇怪了:那个ar不也是状态吗?实际上stateObject是一个留给用户使用的东西 , BeginXXX/EndXXX根本就不使用 。这个stateObject会被装到ar的AsyncState里面 , 也就是说这个stateObject可以随时通过访问存根(BeginXXX的返回值)或者回调函数里的ar得到 , 你完全没必要额外的保存到什么地方 , 更不需要费神的去考虑如何和你的某个异步操作对应起来 。说了半天,这个东西有什么用呢?你想怎么用就怎么用呗 , 发挥一下你的想象力 。比如说,你可以保存这是第几次操作,或者在多个异步操作之间要同步的时候可以作为信号旗,再或者直接是操作这个异步操作的对象(x.BeginXXX的时候将x传递到stateObject参数上) 。
第一种用法有点多余,第二种用法有点复杂,第三种我用得最多 。因为你很可能在协一个服务端,而服务段必须能够响应多个客户端,这决定了必须用异步 。同时 , 对于多个客户端必然有多个对象,例如网络连接的时候可能是Socket 。而实际上处理的方法或者协议是和具体哪个客户端没有关联的 , 因此我们只需要一套处理程序就够了 。这个时候第三种用法就很有用处 , 我们完全可以把代码写成这样:
SubDataReceived(ByValarAsIAsyncResult)
ar.AsyncState.EndReceive(ar)
ar.AsyncState.BeginReceive(...,ar.AsyncState)
EndSub
这样就不需要额外的数据结构去记录有那些正在活动的对象了 。
求深入浅出讲解VB.NET下利用Async和Await实现异步的方法 。run需要一个action方法 。
这个方法用于用后台进程执行占用大量CPU的工作 , 你的for代码段应该写在里面 。
我没用过这个,粗略看了一下资料,实际情况与他的实例不太一样,Dim a As Task(of Boolean)=Await Doo(),直接提示错误 , 正确用法是去掉await 。
解决以上两个问题,测试运行通过 。(一个文本框滚数字,另一个打字无压力)
其实你的要求,不需要这么高级 。多线程应该可以 。
VB.NET 简单多线程多线程一般是不推荐用的,因为线程之间如果有共享资源的话会引起竞争,需要加锁处理;而且线程间没有时序关系,所以你在调试中可能会出现异步处理结束顺序与开始处理顺序不一致的情况(我在调试中已经发现该问题) 。
针对你提出的这个问题,采用了多线程处理,利用的是BackgroundWorker也就是异步处理控件进行了处理 。
代码已经经过调试通过 。欢迎交流,如有问题,留下QQ或其他联系方式 。
代码如下 , 并附程序截图 。
‘---------------------------------------------------
Imports System.ComponentModel '导入异步控件命名空间
Public Class Form1
Private howmany As Integer = 10
Private AnalysisNumber(0 To howmany - 1) As BackgroundWorker
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
creatNewBackgroundWorker()
addHandle()
startWork()
End Sub
Private Sub creatNewBackgroundWorker()
For i As Integer = 0 To AnalysisNumber.Length - 1
AnalysisNumber(i) = New BackgroundWorker
Next
End Sub
Private Sub addHandle()
For i As Integer = 0 To AnalysisNumber.Length - 1
AddHandler AnalysisNumber(i).DoWork, AddressOf AnalysisNumber_DoWork
AddHandler AnalysisNumber(i).RunWorkerCompleted, AddressOf AnalysisNumber_RunWorkerCompleted
Next
End Sub
Private Sub startWork()
For i As Integer = 0 To 9
Dim temp(0 To 9) As Integer

推荐阅读