Discussion :

[gargle]

bonjour
je voudrai lancer deux fonction en parallele, en l'occurence deux captures sur des webcam, mais je sais pas comment le faire en meme temps, si quelqu'un a une idée
merci
@+++

[B-Pascal]

j'ai entendu parler de multithread dans Visual Basic.

Cherche peut-être par là...

Cdlt,
B-Pascal.

[SpaceFrog]

Aux heures creuses fais une recherche sur ce forum avec "thread" ...

ou recherche dans l'aide msdn :
"threads, améliorations dans Visual Basic 6.0"

[gargle]

coucou
j'ai un bout de code mais j'arrive pas a comprendre comment le lancer, si vous pouviez m'aider ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
  Public Const CTF_COINIT = &H8
Public Const CTF_INSIST = &H1
Public Const CTF_PROCESS_REF = &H4
Public Const CTF_THREAD_REF = &H2
 
Public Declare Function SHCreateThread Lib "shlwapi.dll" (ByVal pfnThreadProc As Long, pData As Any, ByVal dwFlags As Long, ByVal pfnCallback As Long) As Long
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
 
Dim nb_t& ' Nombre de thread
 
Sub main()
    ' On crée les thread
    SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
    SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
    SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
 
    MsgBox "Vous devez fermer les autres boites de dialogue avant de fermer celle-la", vbCritical, "Attention"
End Sub
 
Sub ShowMsgBox()
    nb_t = nb_t + 1
    Call MsgBox("Mstgbox executé depuis la thread n°" & nb_t, vbInformation, "Multi-Thread")
End Sub

c'est de vbmore

merci
@++++

[ThierryAIM]

tu crées un module dans un projet vide

tu copie ce code dedant

Dans propriété du projet tu déclare Objet de démarrage et tu choisis SubMain

je viens de testé, ca marche

[bhaal76]

comme je trouve les thread un peu trop compliqué, j'utilise les timers, c'est peut-être pas très propre comme façon de programmé, mais un timer seul sur une form rien que pour lui se comporte comme un thread (ou presque) ...

mais ça n'engage que moi


bhaal76

[gargle]

merci bcp ThierryAIM,
je cours essayer
quand a l'utilisation de timer, je peux pas car en fait, c une fonction qui me prend la mains et la rend que la capture terminé alors que je desire faire de l'acquisition en parallele.
voila
merci

[soazig]

Bonjour,
Il me semble que pour faire du multithread en VB6, il faut créer un exe activeX, a qui tu demandes de faire le boulot, et qui te "préviens" en te donnant toutes les informations dont tu as besoin quand il a fini.
En gros tu as ton programme VB, qui appelle ton ExeActiveX( écrit en VB aussi) en lui demandant lance une capture.
Pendant que l'exe activeX fait le boulot, ton programme VB garde la main et peut faire appel à l'Exe ActiveX pendant ce temps. L'exe active X peut te prévenir qu'il a fini, par exemple en générant un événement.

Donc voilà une piste Exe ActiveX.
A+
Soazig