Discussion :

[p1k1]

Bonjour,

Je cherche à lancer l'exécution de deux fonctions en même temps.

voici grossièrement à quoi ressemble le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim bResult1, bResult2 as Bool
 
bResult1 = GetObjects(Objet1,...)
bResult2 = GetObjects(Objet2,...)

L'idée est de ne pas attendre bResult1 pour avoir bResult2...


Merci d'avance.

[dkmix]

Bonjour,
Vous pouvez faire des Tasks
Intro à la Programmation Parallèle

[tomlev]

Tu peux faire quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Imports System.Threading.Tasks
 
...
 
Dim bResult1, bResult2 as Bool
 
Dim t1 As Task = Task.Factory.StartNew(Function() GetObjects(Objet1,...))
Dim t2 As Task = Task.Factory.StartNew(Function() GetObjects(Objet2,...))
Task.WaitAll(t1, t2)
bResult1 = t1.Result
bResult2 = t2.Result

[p1k1]

Merci pour ces réponses !

C'est exactement ce que je cherchais