fortschrittsanzeige
08.01.2003 15:08:07
decak
das sieht dann so aus:
durch CALL rufe ich immer die makros im modul auf!
funktioniert auch - es wird nur die userform zwischendurch ausgeblendet.
Sub Laufzeitanzeige()
'Daten holen
Label82.showmodal = True
Label82.Width = 0 'Fortschrittsanzeige mit % - Balken
iMax = 2000
Label82.Caption = "Daten verarbeiten"
Label82.TextAlign = fmTextAlignCenter
Label82.Font.Bold = True
Label82.ForeColor = RGB(255, 255, 255)
Label82.BackColor = RGB(0, 0, 0)
Call Webgate.prepareData
i = 800
Label82.Width = (i + 1) / 10
Label82.Caption = "Ordner suchen"
Call Webgate.testPath
i = 1400
Label82.Width = (i + 1) / 10
Label82.Caption = "XML schreiben"
Call Webgate.exportXML
i = 2000
Label82.Width = (i + 1) / 10
Label82.Caption = "Fertig"
End Sub