[VB.NET]多线程——参数和返回值.txt
2008-11-30 12:52
483 查看
从线程池线程返回值有点复杂。不允许使用从函数调用返回值的标准方法,因为只有 Sub 过程可以排队进入线程池。提供参数和返回值的一种方法是将参数、返回值和方法包装到包装类中,如线程参数和返回值中所述。一种更简单的提供参数和返回值的方法,是使用 QueueUserWorkItem 方法的 ByVal 状态对象变量(可选)。如果使用此变量将引用传递给类的实例,则该实例的成员便可以由线程池线程修改并用作返回值。您可以修改由变量(通过值传递)引用的对象,这在开始可能并非显而易见,但的确是可能的,因为只有对象引用是通过值传递的。对由对象引用所引用的对象成员进行更改之后,这些更改将应用于实际的类实例。
不能使用结构返回状态对象中的值。因为结构是值类型,异步进程所作的更改并不更改原始结构的成员。如果不需要返回值,则可以使用结构提供参数。
<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Friend Class StateObj
Friend StrArg As String
Friend IntArg As Integer
Friend RetVal As String
End Class
Sub ThreadPoolTest()
Dim TPool As System.Threading.ThreadPool
Dim StObj1 As New StateObj()
Dim StObj2 As New StateObj()
' 设置一些字段,用作状态对象中的参数。
StObj1.IntArg = 10
StObj1.StrArg = "某个字符串"
StObj2.IntArg = 100
StObj2.StrArg = "另一个字符串"
' 将一个任务排队
TPool.QueueUserWorkItem(New System.Threading.WaitCallback _
(AddressOf SomeOtherTask), StObj1)
' 将另一个任务排队
TPool.QueueUserWorkItem(New System.Threading.WaitCallback _
(AddressOf AnotherTask), StObj2)
End Sub
Sub SomeOtherTask(ByVal StateObj As Object)
' 将状态对象字段用作参数。
Dim StObj As StateObj
StObj = CType(StateObj, StateObj) ' 强制转换为正确的类型。
MsgBox("StrArg 包含字符串" & StObj.StrArg)
MsgBox("IntArg 包含数字" & CStr(StObj.IntArg))
' 将字段用作返回值。
StObj.RetVal = "SomeOtherTask 的返回值"
End Sub
Sub AnotherTask(ByVal StateObj As Object)
' 将状态对象字段用作参数。
' 状态对象作为 Object 进行传递。
' 将其强制转换为特定的类型以使其更易于使用。
Dim StObj As StateObj
StObj = CType(StateObj, StateObj)
MsgBox("StrArg 包含字符串 " & StObj.StrArg)
MsgBox("IntArg 包含数字" & CStr(StObj.IntArg))
' 将字段用作返回值。
StObj.RetVal = "AnotherTask 的返回值"
End Sub
公共语言运行时自动为排队的线程池任务创建线程,然后,当任务完成后释放这些资源。将任务排队后,很难再将其取消。ThreadPool 线程始终使用多线程单元 (MTA) 线程模型来运行。如果需要使用单线程单元 (STA) 模型的线程,则应手动创建线程。
不能使用结构返回状态对象中的值。因为结构是值类型,异步进程所作的更改并不更改原始结构的成员。如果不需要返回值,则可以使用结构提供参数。
<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Friend Class StateObj
Friend StrArg As String
Friend IntArg As Integer
Friend RetVal As String
End Class
Sub ThreadPoolTest()
Dim TPool As System.Threading.ThreadPool
Dim StObj1 As New StateObj()
Dim StObj2 As New StateObj()
' 设置一些字段,用作状态对象中的参数。
StObj1.IntArg = 10
StObj1.StrArg = "某个字符串"
StObj2.IntArg = 100
StObj2.StrArg = "另一个字符串"
' 将一个任务排队
TPool.QueueUserWorkItem(New System.Threading.WaitCallback _
(AddressOf SomeOtherTask), StObj1)
' 将另一个任务排队
TPool.QueueUserWorkItem(New System.Threading.WaitCallback _
(AddressOf AnotherTask), StObj2)
End Sub
Sub SomeOtherTask(ByVal StateObj As Object)
' 将状态对象字段用作参数。
Dim StObj As StateObj
StObj = CType(StateObj, StateObj) ' 强制转换为正确的类型。
MsgBox("StrArg 包含字符串" & StObj.StrArg)
MsgBox("IntArg 包含数字" & CStr(StObj.IntArg))
' 将字段用作返回值。
StObj.RetVal = "SomeOtherTask 的返回值"
End Sub
Sub AnotherTask(ByVal StateObj As Object)
' 将状态对象字段用作参数。
' 状态对象作为 Object 进行传递。
' 将其强制转换为特定的类型以使其更易于使用。
Dim StObj As StateObj
StObj = CType(StateObj, StateObj)
MsgBox("StrArg 包含字符串 " & StObj.StrArg)
MsgBox("IntArg 包含数字" & CStr(StObj.IntArg))
' 将字段用作返回值。
StObj.RetVal = "AnotherTask 的返回值"
End Sub
公共语言运行时自动为排队的线程池任务创建线程,然后,当任务完成后释放这些资源。将任务排队后,很难再将其取消。ThreadPool 线程始终使用多线程单元 (MTA) 线程模型来运行。如果需要使用单线程单元 (STA) 模型的线程,则应手动创建线程。
相关文章推荐
- VB.NET多线程编程参数的传递以及返回值的获取
- [VB.NET]多线程——线程参数和返回值
- vb.net 接口POST方式传参数提交返回值
- Vb.net多线程条件下,给委托方法传参数
- VB.NET动态加载C#或VB.NET生成的DLL文件调用动画教程[黑白智慧写](动态调用DLL).txt
- Vb.net调用C写的Dll含结构体指针参数的方法
- [VB.NET]多线程——线程池
- ASP.NET温故而知新学习系列之ASP.NET多线程编程—.NET下的多线程编程利用thread.Start()传递参数(四)
- ASP.NET调用存储过程(带参数,三个返回值)+@ReturnValue
- ASP.NET中调用存储过程带(输入输出)参数和返回值例子
- VB.NET中 读取txt文件示例
- VB.NET中的多线程
- vb.net调用vc动态库时传递数组参数应注意的问题
- 多线程过程的参数和返回值
- 如何使用vb.net多线程
- [网络收集]ASP.NET中调用存储过程带(输入/输出)参数和返回值的一些常用的例子
- [VB.NET]如何把.TXT的文件内容传到DATAGRID里面
- vb.net创建多线程
- vb.net的多线程
- vb.net form New 带参数构造函数