當前位置: 首頁>>代碼示例>>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;未經允許,請勿轉載。