Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 22:54:58

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

+ de logiciels à télécharger

1 464 910 membres
401 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 022 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UN SIMPLE PROGRAMME MULTI-THREAD

Information sur la source

Catégorie :API Niveau : Initié Date de création : 05/01/2003 Date de mise à jour : 05/01/2003 21:40:01 Vu : 6 417

Auteur : vbmore

Site perso

Ecrire un message privé

Note :

9,67 / 10

Commentaire sur cette source (12)

Ajouter un commentaire et/ou une note

Description

On peut facilement créer une app. mutli-thread avec VB grace au VB !
Mais attention, c'est risqué ! (ça plante pour un rien)

A mettre dans un module et sub main en démarrage

Source

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

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

Sources du même auteur

OBTENIR À L'AVANCE LA TAILLE D'UN TEXTE DESSINÉ SUR UNE FORM...

COPIER UNE STRUCTURE "TYPE" DANS UNE AUTRES

IMPRIMER N'IMPORTE QUEL FICHIER

EVENT QUAND LA FORM BOUGE (SUBSCLASSING)

ENUMÈRER LES SECTIONS D'UN FICHIER .INI

Toutes les sources de vbmore

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Commentaires et avis

Commentaire de SATANdemon le 06/01/2003 07:54:40

Pouurait tu m'expliquer ce qu'est un thread ??
moi et l'anglais on fait 5 si tu voit ce que je veut dire ;)

mais sinon je pense que ca pourra me servir un de ces jour :)

Commentaire de oliv211 le 06/01/2003 09:03:31

>SATANdemon
un thread c un "processus leger" (c comme ca qu'on traduit).. en fait t'as la notion d'appartement qui vient en plus, c assez compliqué pour ne pas être expliqué en 2lignes, juste à retenir que VB est nul ds la gestion des threads, et que C++ y excelle... sinon ca sert surtout quand un composant est appelé simultanément par plusieurs "clients" .... c du gros resumé car c compliqué ;)

Commentaire de lumesh le 07/07/2003 17:04:25

Salut,

voila je suis en train de faire une appli de client FTP
et dedans g un systeme de recherche recursif. qui est assez lourd
donc je voulais le mettre ds un thread mais je c pas men servir donc g pris ta src mais
le truc c ke je dois passer un param a la fonction a mettre en thread, donc saurait comment je px faire STP ?

MErci par avance pour ta réponse :)

Commentaire de Fedaykin le 26/03/2004 17:02:25

merci,

code rapide, relativement simple,
et qui fonctionne très bien

10/10

:)

Commentaire de ZedMaTrix le 27/08/2005 02:03:46

C'est super ce code !!

Mais plus d'explications sur la création de thread please !

Commentaire de bastoche34 le 31/08/2007 11:01:14

Merci tu me sauve la vie!!!!!
j'était persuader qu'on ne pouvez pas faire de thread en VB6

Commentaire de reacen le 09/08/2008 09:09:28 10/10

Et On quoi cette source t'a sauver la vie ? x')

Sinon simple source et parfaite ! 10/10!!

Tien, je peu aller juska combien de fois avec ca :

For i = 1 To 50
SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
next i

C'est fesable x') ?

Commentaire de jipef le 23/08/2008 15:24:52

sous vista ça merde completement

Commentaire de hkari le 09/11/2008 11:27:16

je suis débutante dans la programmation des threads en C++builder6.
je cherche la fonction qui me permet de mettre en attente des threads (la fonction wait en java). je cherche sa correspondance en C++builder6.

merci de votre aide

Commentaire de Duke49 le 10/03/2009 01:48:08

Excellent !!!

Le debug du AddressOf c'est pas facile... enfin on y peut rien.
J'ai une question plus importante.
Si je souhaite faire transiter une collection, comment je fait ???

exemple qui passe pas ^^:

Dim FN_CFWT() as New Collection
...
While nbThread > 0
SHCreateThread AddressOf FN_CFWT(nbThread), ByVal 0&, CTF_INSIST, ByVal 0&
nbThread = nbThread - 1
Wend

Commentaire de Duke49 le 10/03/2009 01:53:58 10/10

J'ai fait une bourde dans l'exemple...

Dim perList() As New Collection
...
While nbThread > 0
SHCreateThread AddressOf FN_CFWT(perList), ByVal 0&, CTF_INSIST, ByVal 0&
nbThread = nbThread - 1
Wend

Je suis obligé de rendre mon perList déclaré en public ?

Commentaire de reacen le 21/03/2009 22:21:21

Et mince, j'ai vraiment monter un bon Code Serveur Winsock, qui gère les clients de cette façons, mais ca marche only sur l'IDE, quand je compile mon EXE Marche jamais (-_-)... J'ai tout essayer, Natif / P-Code etc, sa donne toujours:

L'instruction à "blablabla" emploie l'adresse mémoire "blablabla". La mémoire ne peut pas être "read" Cliquez Ok pour terminer le programme...