boucle infini

Salut
je suis débutante en vb6.0 et je veux faire une boucle qui tourne tant que je n'ai pas clicker sur un bouton (qui se trouve dans la feuille ) , comment je peux réaliser cette tache?
merci de vouloir m'aider
a+

'lut

'dans un module
Public MaVar as Boolean




'la ou tu veux ta bouclie infinie
MaVar=False
While Mavar=false
....boucle infinie

wend



'sur ton bouton_click()
MaVar=True



@++


BasicInstinct

Personnellement, je crérais une variable Boolean globale dans le form qui passerait à vrai lors du clique sur le bouton, avec une boucle du genre Do While MaVariable = False.
Et surtout n'oublie pas de mettre un DoEvents dans ta boucle si tu veux pas que ton programme gèle.
Voilà mais je suis aussi un débutant alors ya peut être des solutions plus élégantes.

GS

'lut

oups effectivement, j'ai oublié le doevents dans la boucle.
Apres que la Variable MaVar soit en global dans la form ou dans un module, ca ne change pas grand chose.

@++


BasicInstinct

En effet la variable du moment qu'elle est accessible par le form ...
Mais en fait tu peux te servir directement d'une propriété du bouton (.Tag par exemple, ou .Caption si ton bouton change qd on clique dessus). C'est exactement pareil ya juste une variable en moins.
Voilà.

GS

Salut a tt le monde
merci de m'avoir répondre, j'ai essayé de faire ce que vous m'aviez dit mais pendant l'exécution, aucune feuille n'apparait
en fait , j'ai ecrit ce code :

mavar = False

While mavar = False
...............
...............
..............
..............
xxx = DoEvents()
Wend


j'ai déclaré "mavar" dans un module
est ce que j'ai une faute ? et qu'est ce qu'il me manque?
ou je dois placer doevents ?
merci
a+

tiens , j'ai deposé un exemple que j'avais fait pour un pote

http://www.vbfrance.com/code.aspx?ID=18985

@++

BasicInstinct

En effet si ce code est inscrit dans form_load() le form en question n'apparait pas. C'est parce que le form ne devient visible qu'après l'event form_load, et je suppose qu'il ne devient pas visible car la boucle empêche la sub form_load() de finir. Mais ce n'est qu'une supposition.
Quoi qu'il en soit, rajoute monform.Show avant la boucle et cela devrait régler le problème.

GS

A ben désolé BasicInstinct je vois jamais tes réponses avant d'envoyer mes messages. J'actualise pas assez.

GS

Un dernier truc : tu peux mettre tout simplement DoEvents au lieu de xxx = DoEvents()

GS