VB procressbar laden

[dabind]

Wien kann ich eine Procressbar zum laden bringen??

 

[BattleMaker]

Eine genauere Beschreibung deines Problems wäre sinnvoll.

Ich glaube aber, dass du die ProcessBar mit diesen schönen blauen Balken füllen willst. Bei VB .NET geht es, indem du folgende Anweisung ausführst: ProcessBar.ProceedStep()

Du musst der ProcessBar aber erstmal sagen, nach wie vielen Schritten sie absolut voll mit blauen Balken ist. Bei einer Prozentangabe von 0-100% (etwa bei Installationen oder Downloads) wären das dann ja 100 Schritte. Mir fällt gerade nicht die entsprechende Eigenschaft ein, aber es gibt ja nicht so viele.
Schau einfach mal selbst nach...


MFG, BattleMaker :]

 

[dabind]

habe VB 6.0

also ich mochte das der blaue balken inert 10 sek oben ist

habe bis jetzt erst das und habe 0 ahnung also bitte genau erkleren

Option Explicit

Private Sub ProgressBar1()

End Sub

haha geschaft

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 850
ProgressBar1.Value = 2
End Sub


Private Sub Timer1_Timer()
Timer1.Enabled = False
Timer2.Enabled = True
Timer2.Interval = 430
ProgressBar1.Value = 4
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
Timer3.Enabled = True
Timer3.Interval = 630
ProgressBar1.Value = 7
End Sub

Private Sub Timer3_Timer()
Timer3.Enabled = False
Timer4.Enabled = True
Timer4.Interval = 430
ProgressBar1.Value = 9
End Sub

Private Sub Timer4_Timer()
Timer4.Enabled = False
Timer5.Enabled = True
Timer5.Interval = 800
ProgressBar1.Value = 13
End Sub

Private Sub Timer5_Timer()
Timer5.Enabled = False
Timer6.Enabled = True
Timer6.Interval = 1330
ProgressBar1.Value = 21
End Sub
Private Sub Timer6_Timer()
Timer6.Enabled = False
Timer7.Enabled = True
Timer7.Interval = 930
ProgressBar1.Value = 28
End Sub
Private Sub Timer7_Timer()
Timer7.Enabled = False
Timer8.Enabled = True
Timer8.Interval = 930
ProgressBar1.Value = 31
End Sub
Private Sub Timer8_Timer()
Timer8.Enabled = False
Timer9.Enabled = True
Timer9.Interval = 2530
ProgressBar1.Value = 54
End Sub
Private Sub Timer9_Timer()
Timer9.Enabled = False
Timer10.Enabled = True
Timer10.Interval = 400
ProgressBar1.Value = 56
End Sub
Private Sub Timer10_Timer()
Timer10.Enabled = False
Timer11.Enabled = True
Timer11.Interval = 300
ProgressBar1.Value = 58
End Sub
Private Sub Timer11_Timer()
Timer11.Enabled = False
Timer12.Enabled = True
Timer12.Interval = 50
ProgressBar1.Value = 62
End Sub
Private Sub Timer12_Timer()
Timer12.Enabled = False
Timer13.Enabled = True
Timer13.Interval = 1800
ProgressBar1.Value = 78
End Sub
Private Sub Timer13_Timer()
Timer13.Enabled = False
Timer14.Enabled = True
Timer14.Interval = 900
ProgressBar1.Value = 89
End Sub
Private Sub Timer14_Timer()
Timer14.Enabled = False
Timer15.Enabled = True
Timer15.Interval = 600
ProgressBar1.Value = 94
End Sub
Private Sub Timer15_Timer()
Timer15.Enabled = False
Timer16.Enabled = True
Timer16.Interval = 800
ProgressBar1.Value = 97
End Sub
Private Sub Timer16_Timer()
Timer16.Enabled = False
Timer16.Enabled = True
Timer16.Interval = 270
ProgressBar1.Value = 100
End Sub

aber ich bin mir sicher das geht auch einfacher
wie??

 

[.tails]

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 1
End Sub

Der Timer hat ein Interval von 100.
Der Wert der Progressbar wird also alle 100ms um 1 addiert.
Müsste allerdings noch ne If-Abrfrage rein weils so nach 100 Mal (100 = max Wert der Progressbar)
zu einem Fehler kommt, da nichts mehr addiert werden kann.

Edit: Also so:

Private Sub Timer1_Timer()
    If ProgressBar1.Value <> 100 Then
        ProgressBar1.Value = ProgressBar1.Value + 1
    End If
End Sub

 

[dabind]

If ProgressBar1.Value <> 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1

da zählt es aber immer weiter..


ich habs jetzt so

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 1
    If ProgressBar1.Value > 100 Then
        ProgressBar1.Value = 100
    End If
End Sub

 

[.tails]

Original von dabind

If ProgressBar1.Value <> 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1

da zählt es aber immer weiter..


ich habs jetzt so

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 1
    If ProgressBar1.Value > 100 Then
        ProgressBar1.Value = 100
    End If
End Sub

Eigentlich dürfte er nicht weiterzählen.
Timer auf 100? Bar-Max auf 100?
Oder man machts so:

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 1
    If ProgressBar1.Value = 100 Then Timer1.Enabled = False
End Sub

 

[dabind]

Private Sub Timer1_Timer() ProgressBar1.Value = ProgressBar1.Value + 1 If ProgressBar1.Value = 100 Then Timer1.Enabled = False End Sub

das ist noch besser