Les timers et impossibilité de cliquer sur un boutonRésolu

Question

Voila, alors je veux cr&#233;er une barre de progression, qui une fois fini, permet de rendre "actif" un bouton.

voila mon code :



Private Sub Command1_Click()

MsgBox "Patientez la fin du chargement ! "

If analyse.Value = 100 Then

If horde > alliance Then

horde2.Show

fin.Hide

Else

alliance2.Show

fin.Hide

End If

End If

End Sub



Private Sub Form_Load()

analyse.Value = 0

End Sub



Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)



End Sub



Private Sub Timer1_Timer()

analyse.Value = 10



End Sub



Private Sub Timer2_Timer()

analyse.Value = 25

End Sub



Private Sub Timer3_Timer(Index As Integer)

analyse.Value = 45

End Sub



Private Sub Timer4_Timer(Index As Integer)

analyse.Value = 60

End Sub



Private Sub Timer5_Timer()

analyse.Value = 75

End Sub



Private Sub Timer6_Timer()

analyse.Value = 90

End Sub



Private Sub Timer7_Timer()

analyse.Value = 100

MsgBox "Chargement finis !"

Beep

End Sub





Les questions : 



1) Comment faire pour qu'e la couleur du texte d'un bouton soit gris (
= bouton qui n'est pas encore activ&#233; ) et une fois le timer 7 fini,
qu'il redevienne couleur noir (= bouton comme a l'origine, actif ).



2) Avec ce code, la barre une fois termin&#233;, redemare a 0 et ya plein de
bug apr&#232;s. COmment faire pour qu'une fois que la barre est termin&#233;, la
barre reste pleine....



Merci de vos r&#233;ponses !

darthpolor_I · Accepted Answer

pour le bouton c'est :

tonbouton.enabled = true ' activation du bouton

tonbouton.enabled = false ' d&#233;sactivation du bouton

Pour le prob des timers il suffit de mettre dans ton timer7_Click() : 

timer1.enabled = false
timer2.enabled = false
timer3.enabled = false
timer4.enabled = false
timer5.enabled = false
timer6.enabled = false
timer7.enabled = false ' d&#233;sactive tous les timers

PS : Pourquoi autant de timers??

Dahevos · Answer

Car en faite, je souhaite faire une fausse barre de chargement ;).

Enfin, je sais/pense qu'il dois exister un autre moyen, mais je suis
d&#233;butant, alors ben j'ia fais plein de timer qui donner une valeur
diff&#233;rente a ma progress barre !

Mikaels35 · Answer

Avec un seul timer par exemple la barre progresse de 10% &#224; chaque appel du timer:

analyse.Value=0
Timer1.Interval= xx  ' xx= 1/10 du temps total de chargement envisag&#233;
Timer1.Enabled=True

Private Sub Timer1_Timer()
analyse.Value = analyse.Value+10
   if analyse.Value=100 then
      Timer1.Enabled= False ' ou bien: Timer1.Interval=0
      MsgBox "Chargement finis !"
      Beep
   end if
End Sub

Dahevos · Answer

oki merci !:

Les timers et impossibilité de cliquer sur un bouton

4 réponses

Discussions similaires