[VB6] Mettre en pause l'execution du code

**ironik** · 19/05/2006, 09h44

Bonjour à tous!!

Voila je vous expose mon problème

J'aimerai mettre en pause l'execution d'une partie de mon code en attendant une action sur une autre form.

J'avais pensé au "sleep" mais ce n'est pas bon car c'est toute l'application qui se freeze, or il faut que je puisse executer le code de la nouvelle form...

J'ai trouvé ca, mais c'est plus de la bidouille qu'autre chose :

FrmBoxes est la nouvelle form que je charge a partir de la form principale

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With flgCumulative
    If valx(.TextMatrix(.row, flgcumulative_restqty)) < 0 Then
        frmBoxes.ProdId = .TextMatrix(.row, flgcumulative_prodid)
        frmBoxes.Show
        Do Until frmBoxes.Visible = False
            frmBoxes.SetFocus
            DoEvents
        Loop
    Else
        MsgBox "No alternative boxes needed!", vbExclamation
        Exit Sub
    End If

Si vous avez des suggestions je suis preneur!!!
Merci!!

**illight** · 19/05/2006, 09h45

Peut etre en utilisant un Wait

regarde l'aide en ligne sur cette fonction

**jmfmarques** · 19/05/2006, 09h53

Utilisation, dans la 1ère Form, d'une boucle attendant le retour à True d'une variable boléenne publique initialisée à True dans la 2ème form.
A True : fin de boucle puis réinitialisation à False (pour les fois éventuelles suivantes)

**ironik** · 19/05/2006, 10h25

Magnifique jmf ca marche super bien comme ca!!!

code de frmShowBoxesStock

Code :

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

1
2
3
4
5
 
AlternativeChoosen = False
        Do Until AlternativeChoosen = True
            DoEvents
        Loop

Code de frmBoxes:

Code :

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

1
2
3
4
 
FrmShowBoxesStock.AlternativeChoosen = True
Unload Me
FrmShowBoxesStock.SetFocus

Merciiiiii

ps: Vb ne reconnait pas la fonction wait, il faut surement ajouter une référence??

**ouskel'n'or** · 19/05/2006, 10h29

Juste une idée. En VBA, et si la procédure d'activation d'une form est dans un module, cette activation interrompt la procédure.

Code :

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

1
2
3
 
LaForm.show
Msgbox "Coucou"

"Coucou" n'apparaîtra qu'après désactivation et déchargement de Laform.

Tu peux essayer de créer une procédure de deux lignes, dans un module, la première ligne activant ta form2, la seconde te replaçant dans form1.
Pas essayé, donc juste une idée.

A+