VB.NET多线程编程参数的传递以及返回值的获取

前端之家收集整理的这篇文章主要介绍了VB.NET多线程编程参数的传递以及返回值的获取前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

下面的例子是使用多线程同时弹出4个msgBox


————————————————

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Imports System.Threading
Public Class Form1
Structure MyParameters
Dim nNum As Integer
End Structure
Public paramPM(3) As MyParameters
Public Function sPM2( ByVal paramPM As MyParameters) As String
MessageBox.Show( "Hello" +paramPM.nNum.ToString())
Return ""
End Function
Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles Button1.Click
ThreadPool.QueueUserWorkItem( New WaitCallback( AddressOf sPM2),paramPM(0))
ThreadPool.QueueUserWorkItem( New WaitCallback( AddressOf sPM2),paramPM(1))
ThreadPool.QueueUserWorkItem( New WaitCallback( AddressOf sPM2),paramPM(2))
ThreadPool.QueueUserWorkItem( New WaitCallback( AddressOf sPM2),paramPM(3))
End Sub
End Class

VB.NET中多线程编程非常容易方便,只要 Dim MyThread as new system.Threading.Thread(Addressof MySub)就可以了,其中MySub是多线程中要运行的处理过程。但是如果要向线程中传递参数或者要获取线程的返回值,就不是很方便了。当然我们可以通过定义全局变量,但这会使程序的维护变得困难,增加系统开销,甚至会因线程间的并发操作导致无法预料的结果。
笔者通常采用的方法是定义一个类。在类中定义几个私有变量,用于存放参数。再定义一个带参数的构造过程,所带的参数就是我们要们要向线程中传递的参数(形参)。在构造过程中,把参数传给私有变量。再定义一个在线程中要使用的处理过程,在处理过程中就可以随意的使用私有变量来得到所需的参数。
至于返回值,可以在类中定义一个带参数的事件,在处理参数中触发事件,并把我们所需要的返回值做为参数传递出去。


在构建多线程时,先 Private WithEvents MyFirstClass as new MyClass(Arg1,Arg2....)其中Arg1,Arg2...就是我们要向线程中传递的参数(实参),然后再Dim MyThread as New System.Threading.Thread(Addressof MyFirstClass.MySub))就可以了。


在事件过程MyFirstClass_MyEvent(nReturn)中,通过nReturn就可以得到我们所要的返回值了。

代码示例:
1、类模块代码
Public Class MyClass
dim MyArg1 as Integer
Dim MyArg2 as Integer

sub New(Byval Arg1 as Integer,Byval Arg2 as Integer)
MyArg1=Arg1
MyArg2=Arg2
End Sub

public Event MyEvent(Byval nReturn as Integer)


Public Sub MySub
Dim MyReturn as Integer=MyArg1 + MyArg2
RaiseEvent MyEvent(MyReturn)
End Sub
End Class

2、窗口模块代码

Public Class From1
Private WithEvent MyFirstClass as New MyClass(1,3)


Private Sub MyFirstClass_MyEvent(Byval nReturn as Integer) Handles MyFirstClass.MyEvent

'nReturn中就是返回值

End Sub

本例为了抛砖引玉,只是向线程中传递两个整型参数1、3,然后在处理过程中简单将两个数相加,最后返回结果。在实际使用中当然要复杂的多。

原文链接:https://www.f2er.com/vb/258756.html

猜你在找的VB相关文章