Discussion :

[Zorgloub]

Bonjour,

J'ai le code suivant :

Code :

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

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.

[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 ?

[patbou]

bonjour,

peux tu preciser de quel bouton s agit il (commandbutton,toggle ....)et dans quel contexte (feuil, userform)

[Zorgloub]

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

[patbou]

essaye ceci

Code :

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

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 = ""

[Zorgloub]

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

Merci !

[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 !