Temporisation qui ne bloque pas l'application

Version imprimable

Bonjour,

J'ai le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 creerInjLot.Label4.Caption = "Injecteur " & Me.TextBox1.Value & " créé." Dim PauseTime, Start, Finish, TotalTime PauseTime = 5 ' Définit la durée. Start = Timer ' Définit l'heure de début. Do While Timer < Start + PauseTime DoEvents ' Donne le contrôle à d'autres processus. Loop Me.Label4.Caption = ""
Qui me permet d'afficher "Injecteur X créé" pendant 5 secondes. Le problème c'est qu'il bloque tous le reste de l'application pendant ce temps. Comment pourrai-je le lancer à l'interieur d'un thread svp ? Je n'ai pas vraiment trouvé mon bonheur à l'aide de google.

Merci pour votre aide. :)

14/02/2008, 15h58
Zorgloub

En fait mon application n'est pas bloqué, mais le bouton reste enfoncé. Il faudrai que je le fasse apparaître comme relevé imédiatement après avoir cliqué sur celui ci.

une idée svp ?
14/02/2008, 16h10
patbou

bonjour,

peux tu preciser de quel bouton s agit il (commandbutton,toggle ....)et dans quel contexte (feuil, userform)
14/02/2008, 16h15
Zorgloub

oui : c'est un CommandButton dans une Frame dans une UserForm.

essaye ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
    Dim PauseTime, Start, Finish, TotalTime
 
    PauseTime = 5    ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
               creerInjLot.Label4.Caption = "Injecteur " & Me.TextBox1.Value & " créé."
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
 
    Me.Label4.Caption = ""

14/02/2008, 16h50
Zorgloub

Ca ne change rien. Existe-t-il une propriété boutton enfoncé, boutton relevé ?

Merci !
14/02/2008, 16h55
Zorgloub

Je viens de voir ce qu'était les boutons toggle. Je vais me débrouiller avec la propriété Value à true ou false.

Merci beaucoup !