Cedric_Malache
-
10 avril 2001 à 16:39
pingwee
Messages postés26Date d'inscriptiondimanche 30 décembre 2001StatutMembreDernière intervention19 avril 2003
-
17 juil. 2002 à 13:34
Je voudrais réaliser un programme qui lance des threads, j'utilise l'api createthread pour ce faire.
J'ai réalisé un petit prototype, mais quand j'exécuter le pgm dans l'environnement VB, tout va bien, et
dès que j'en fait un exécutable et que je le lance, le pgm plante (exeption...)
Voici le code que j'utilise:
'In a form
Private Sub Command1_Click()
Dim hThread As Long, hThreadID As Long
hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&, hThreadID)
CloseHandle hThread
End Sub
'In a module
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Sub AsyncThread()
Sleep 1000
msgbox "end thread"
End Sub
Est ce que qq peut me dire pourquoi j'ai ce genre de comportement, ou simplement me donner un petit exemple
de multi thread qui fonctionne.
Merci.