ProgressBar

Question

Encore une petite question.

Sur un form j'ai placé un progressbar(,et un timer) je souhaite lui donner vie.
ex : je clilque sur le bouton"valide" et je vois le progressbar augmenter
merçi d'avance

Amonbofis · Answer

Voici, bon mes contrôle ont pas les mêmes noms que toi pour
sûr, mais tu devrais t'y retrouver:

Dans la section Déclarations de ta feuille tu met:

Dim ChronoOn as Boolean

Ensuite:

Private Sub Form_Load()
  ProgressBar1.Min = 0
  ProgressBar1.Max = 100
  ProgressBar1.Value = 0   'Optionnel, par défaut initialisé à 0.
  
  ChronoOn = False   'Optionnel, par défaut initialisé à Faux.
End Sub

Private Sub Timer1_Timer()
 Dim LclMax As Integer
 
    LclMax = ProgressBar1.Value  '= ProgressBar1.Value + 1
    LclMax = LclMax + 1
   
    If (LclMax > ProgressBar1.Max) Then
        LclMax = 0
    End If
  
    ProgressBar1.Value = LclMax
End Sub

Private Sub BtnOK_Click()
 If ChronoOn Then
     Timer1.Enabled = False
     Timer1.Interval = 0
     ProgressBar1.Value = 0
     ChronoOn = False
     Debug.Print "Chrono Stop"
   Else
     Timer1.Interval = 100
     Timer1.Enabled = True
     ChronoOn = True
     Debug.Print "Chrono Roule"
 End If
End Sub

Amuse toi bien!  ;oÞ

JCLK · Answer

Il n'est pas toujours pratique d'utiliser une boucle pour l'évolution d'une progressbar mais ça peut aussi servir :
'
Sub LoopProgBar()
Duree=101
Progr = 1
Do While lap1 < duree
ProgressBar1.Value = Progr 
Progr = Progr + 1
Loop
End Sub

cs_dafu · Answer

coucou si tu es en vb 2005 , dans le code de button1(pour toi le bouton validé ) tout au bout de la premeire ligne il y a ecrit "button1.click" il faut remplacer "button1" par "progressbar1"
puis au bout de la ligne du code de la progressbar , il y a "progressbar1.click" il faut remplacer "progressbar1" par "buton1"
voila j'espere que ca marchera seuleument si tu es sous vb 2005
DAFU

ProgressBar

3 réponses

Discussions similaires