Début Async Tâche sans l'aide de qui les Attendent dans la méthode appelée

App store de fenêtre qui a une méthode longue que j'ai besoin d'appeler au démarrage de l'application, mais je n'ai pas besoin d'attendre qu'elle se termine. Je veux qu'il fonctionne comme une tâche de fond. Si l'aller vers une certaine partie de la demande (reporting), alors je vais vérifier et, si nécessaire, à attendre sur la tâche.

Public Shared Async Function UpdateVehicleSummaries(p_vehicleID As Int32) As Task(Of Boolean)
    Dim tempVehicle As Koolsoft.MARS.BusinessObjects.Vehicle

    For Each tempVehicle In Vehicles
        If p_vehicleID = 0 Or p_vehicleID = tempVehicle.VehicleID Then
            UpdateVehicleStats(tempVehicle)
        End If
    Next

    Return True

End Function

Il est appelé comme cela

Dim updateTask As Task(Of Boolean) = UpdateVehicleSummaries(0)

Il n'a pas d'Attendre l'appel à elle, et j'ai l'avertissement qu'il puisse fonctionner de manière synchrone. Comment puis-je commencer quelque chose comme ce qu'il s'exécute de façon asynchrone? Je veux qu'il marche sur son propre thread/tâche sans bloquer le thread d'interface. Des idées?

Merci!

L'implémentation la plus simple est d'utiliser un BackgroundWorker
Obtenu des échantillons? Système.ComponentModel.BackgroundWorker ne fait pas partie de Windows.Magasin de cadre.
Aucun de ceux qui sont assez court pour le mettre ici - je vais essayer de composer une courte réponse ci-dessous

OriginalL'auteur Robert Beaubien | 2013-02-15

  1. 10

    Vous devez exécuter le code dans votre fonction à l'intérieur d'un Task que vous pouvez ensuite retour:

    Public Shared Function UpdateVehicleSummaries(p_vehicleID As Int32) As Task(Of Boolean)

    Return Task.Factory.StartNew(Of Boolean)(
        Function()
            Dim tempVehicle As Koolsoft.MARS.BusinessObjects.Vehicle

            For Each tempVehicle In Vehicles
                If p_vehicleID = 0 Or p_vehicleID = tempVehicle.VehicleID Then
                    UpdateVehicleStats(tempVehicle)
                End If
            Next

            Return True
        End Function)

End Function

    Vous pouvez appeler la fonction comme vous l'avez suggéré:

    Dim updateTask As Task(Of Boolean) = UpdateVehicleSummaries(0)

    Plus tard, vous pouvez attendre la tâche à accomplir quand vous avez besoin le résultat:

    Dim result = Await updateTask
    J'ai eu tort. C'est beaucoup plus simple que BackgroundWorker!
    Parfait, mais je dirais au lieu de "Si Pas updateTask.IsComplete" il faut "Dim result = Attendent updateTask". Si sa déjà complet, il doit immédiatement retourner le résultat, et si non, il va attendre la fin.
    Oui, vous avez raison. Je vais mettre à jour ma réponse en conséquence.
    Je vous conseille d'utiliser Task.Run au lieu de Task.Factory.StartNew; il y a quelques améliorations mineures à Task.Run.

    OriginalL'auteur Damir Arh

  2. 2

    Je pense que c'est encore plus simple solution qui est beaucoup plus facile à lire

    Public Shared RunningTask As Task

Public Shared Sub CallingSub()
    'No need for sub to be async but can be async if needed for other reasons (see below)
    'but that doesn't stop the execution in the CallingSub
    'Get the task started... it's not going to wait for the task to be done just sets the task variable
    RunningTask = UpdateVehicleSummaries(0)

    'if a parameter comes from a function it may look like this
    'note that if you do this then the CallingSub would need the async keyword
    RunningTask = UpdateVehicleSummaries(Await FunctionReturnInt32())

    'Do stuff that does not require task to be done


End Sub
Public Shared Async Sub UseTaskResults()
    'Must be async so you can await the result
    Await RunningTask
    'Do stuff that requires task to be done
End Sub

Public Shared Function UpdateVehicleSummaries(p_vehicleID As Int32) As Task
    'No need for this function to be async since the function has no await
    Dim tempVehicle As Koolsoft.MARS.BusinessObjects.Vehicle

    For Each tempVehicle In Vehicles
        If p_vehicleID = 0 Or p_vehicleID = tempVehicle.VehicleID Then
            UpdateVehicleStats(tempVehicle)
        End If
    Next
End Function

    OriginalL'auteur LorneCash