ne pas lancer une prodedure 2 fois

bonjour
je voudrais savoir comment ne pas lancer une procedure d'une appli VB6 alors qu'elle est en cours d'execution
d'avnace merci
ollivier

Bonjour,

avec une variable drapeau (variable globale donc)

procedure()

if VarDrapeau=FALSE then

    [...] 'on execute la procédure

    VarDrapeau=TRUE

end if

Fin procédure

bien penser a reinitialiser Flag lorsque tu sors de ta proc (a chauqe Exit function, etc)


Renfield
Admin CodeS-SourceS- MVP Visual Basic

hum. mal lu ^^

Je pensais 'execution une seule fois pour toute' . ca change la donne evidemment :D

Salut
Une seule fois pour toute ... dans chaque lancement de ton logiciel ou de toute la vie du PC ?
Dans le 1er cas, il suffit de ne pas repasser Flag à False en sortant
Dans le 2ème cas, ... il faut détruire le logiciel après exécution ... Pan !

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Je fais partie du comité de défense des executables, Jack : je ne peux pas te laisser dire cela, c'est de la propagande, sniff....


ok, je sors (encore)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

merci pour tout et à tous

Static flag as Boolean 
me plait bien mais puis je le mettre dans plusieurs procédures

merci   ollivier

Oui puisqu'il est déclaré à l'intérieur de ta procédure, il est propre à celle-ci.

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #