Hi,

wie kann ich ein  progress bar in COMOS verwenden?

Hallo Ahnungslos,

hier ist ein Beispiel mit Cancel-Button, wie man die Fortschrittsanzeige / Progress bar in COMOS nutzen kann:

 ' Create Progress bar
Set MyProgress = CreateObject("ComosXMLContent.Progress")
'Set Title
MyProgress.Caption = "Title"
'percentage value
MyProgress.Percentage = 1
MyProgress.Where = 1
'Start
MyProgress.StartProcess
Count1 = 100
For i = 1 To Count1 
  'Cancel-Buttons
  If MyProgress.State = 3 Then

    Exit For

  End If
  MyProgress.Percentage = (100/Count1) * i
Next
'Stop and terminate
MyProgress.StopProcess
Set MyProgress = Nothing

 Viele Grüße

die Allwissende Müllhalde

Hallo,

mich wurde interessieren welche der Hintergrund diese interessante Frage war.

Ciao

SuperPippo

ich kopiere ein Anlage und will wissen, wie weit der Vorgang bereits abgeschlossen ist

Hallo zusammen,

ich hatte mal Objekte aus einer Excel-Datei, die geschachtelt war,  zu importieren.

Da wollte ich für jede Stufe einen Balken sehen, wie weit denn nun der Import ist.

Der Fortschrittsbalken kann ja in jede For-Schleife gehängt werden.

Gruß

Die Allwissende Müllhalde

Hallo zusammen,

vielen Dank.

Ciao

SuperPippo