• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

VB.NET Task.WaitAll方法代码示例

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

本文整理汇总了VB.NET中System.Threading.Tasks.Task.WaitAll方法的典型用法代码示例。如果您正苦于以下问题:VB.NET Task.WaitAll方法的具体用法?VB.NET Task.WaitAll怎么用?VB.NET Task.WaitAll使用的例子?那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在System.Threading.Tasks.Task的用法示例。



在下文中一共展示了Task.WaitAll方法的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于我们的系统推荐出更棒的VB.NET代码示例。

示例1: WaitAllDemo

' 导入命名空间
Imports System.Collections.Generic
Imports System.Threading
Imports System.Threading.Tasks

Module WaitAllDemo
    Sub Main()
        Dim tasks As New List(Of Task(Of Integer))()
        ' Define a delegate that prints and returns the system tick count
        Dim action As Func(Of Object, Integer) = Function(obj As Object)
                                                     Dim i As Integer = CInt(obj)

                                                     ' Make each thread sleep a different time in order to return a different tick count
                                                     Thread.Sleep(i * 100)

                                                     ' The tasks that receive an argument between 2 and 5 throw exceptions
                                                     If 2 <= i AndAlso i <= 5 Then
                                                         Throw New InvalidOperationException("SIMULATED EXCEPTION")
                                                     End If

                                                     Dim tickCount As Integer = Environment.TickCount
                                                     Console.WriteLine("Task={0}, i={1}, TickCount={2}, Thread={3}", Task.CurrentId, i, tickCount, Thread.CurrentThread.ManagedThreadId)

                                                     Return tickCount
                                                 End Function

        ' Construct started tasks
        For i As Integer = 0 To 9
            Dim index As Integer = i
            tasks.Add(Task(Of Integer).Factory.StartNew(action, index))
        Next

        Try
            ' Wait for all the tasks to finish.
            Task.WaitAll(tasks.ToArray())

            ' We should never get to this point
            Console.WriteLine("WaitAll() has not thrown exceptions. THIS WAS NOT EXPECTED.")
        Catch e As AggregateException
            Console.WriteLine(vbLf & "The following exceptions have been thrown by WaitAll(): (THIS WAS EXPECTED)")
            For j As Integer = 0 To e.InnerExceptions.Count - 1
                Console.WriteLine(vbLf & "-------------------------------------------------" & vbLf & "{0}", e.InnerExceptions(j).ToString())
            Next
        End Try
    End Sub
End Module
开发者ID:VB.NET开发者,项目名称:System.Threading.Tasks,代码行数:46,代码来源:Task.WaitAll

输出:

Task=1, i=0, TickCount=1203822250, Thread=3
Task=2, i=1, TickCount=1203822359, Thread=4
Task=7, i=6, TickCount=1203823484, Thread=3
Task=8, i=7, TickCount=1203823890, Thread=4
Task=9, i=8, TickCount=1203824296, Thread=3
Task=10, i=9, TickCount=1203824796, Thread=4

The following exceptions have been thrown by WaitAll(): (THIS WAS EXPECTED)

-------------------------------------------------
System.InvalidOperationException: SIMULATED EXCEPTION
at Example.
b__0(Object obj) at System.Threading.Tasks.Task`1.InnerInvoke() at System.Threading.Tasks.Task.Execute() ------------------------------------------------- System.InvalidOperationException: SIMULATED EXCEPTION at Example.
b__0(Object obj) at System.Threading.Tasks.Task`1.InnerInvoke() at System.Threading.Tasks.Task.Execute() ------------------------------------------------- System.InvalidOperationException: SIMULATED EXCEPTION at Example.
b__0(Object obj) at System.Threading.Tasks.Task`1.InnerInvoke() at System.Threading.Tasks.Task.Execute() ------------------------------------------------- System.InvalidOperationException: SIMULATED EXCEPTION at Example.
b__0(Object obj) at System.Threading.Tasks.Task`1.InnerInvoke() at System.Threading.Tasks.Task.Execute()



注:本文中的System.Threading.Tasks.Task.WaitAll方法示例整理自Github/MSDocs等源码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
VB.NET Task.WaitAny方法代码示例发布时间:2022-05-24
下一篇:
VB.NET Parallel.For方法代码示例发布时间:2022-05-24
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap