ProgressBar

TheLuCKer

Mitglied
Hallo,

kann mir jemand sagen, wie ich genau eine Progressbar mache Also!:

Ich möche eine Progressb. in mein Prog einfügen, aber nicht um es zum eigentlichen Zweck, sondern es soll einfach zum Beispiel 3 Sekunden brauchen, bis es von vorne bis hinten durchläuft. Es soll zum Beispiel sein, dass ich auf einen Button klicke, Cmd1, und dann fängt die Progressb. an zu starten und braucht 3 Sekunden bis sie am anderen Ende ist. DANKE im Vorraus

P.S.: Und wie kann ich eine Progressbar so ganz blau oder so machen. Nicht dass es einzelne Kästchen vorzählt, sondern dass es ganz blau ist. DANKE

LuCKer
 
Stell die Eigenschaft "Scrolling" auf 1, damit wird es ein einziger Balken.
Damit deine Progbar in einer Zeit weitergeht nimmst du einen Timer und erhöhst im Timer-Code die Eigenschaft "Value" der Progbar.
 
Beispiel:
Code:
Private Sub Command1_Click()
ProgressBar1.Value = 0
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 30
Timer1.Interval = 60
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 30 Then Timer1.Enabled = False
End Sub
 
Zurück