当前位置: 首页>>代码示例>>VB.NET>>正文


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

本文整理汇总了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;未经允许,请勿转载。