Fortschrittsblaken
21.03.2006 11:27:41
Alex
ich habe ein Problem mit einem Fortschrittsbalken. (natürlich habe ich vorher im Forum danach geschaut, allerdings keine direkte Lösung für mein Problem gefunden)
Ich habe das Buch Excel-VBA von Bernd Held (Kompendium). Darin ist beschrieben, wie man einen Balken mit Hilfe eines Userform machen kann. Mit folgendem Quellcode:
Private Sub CommandButton1_Click()
Dim i as Integer
Dim iMax
label1.width = 0
iMax = 1000
For i = 1 to iMax
label1.width = (i + 1) / 10
label1.textalign = fmTextAlignCenter
label1.Caption = Int(i / 10) & "%"
label1.font.Bold = True
label1.ForeColor= RGB(256, 256, 256)
DoEvents
Next
End Sub
So, das funktioniert nun auch wunderbar, allerdings nicht in Abhängigkeit mit meinem Programm. Ich habe da einige Routinen laufen, die bestimmt einige Minuten dauern, zuerst kommt der Balken, der von 0 auf 100 schnellt und anschließend dauert es noch eine Weile, bis mein Programm fertig gelaufen ist.
Bedeutet das "DoEvents", dass der Balken generiert wird und nebenbei die Routine läuft? Wie müsste ich meinen Quellcode einbinden, dass es mit der Fortschrittsnazeige hinkommt?
Für Tipps wäre ich dankbar.
Gruß
Alex
Anzeige