Gelöst :StatusAnzeige im Formular

[keksi1970]

Hi, ich mal wieder

ich würde gerne verwirklichen, dass bei einer Makroausführung ein Dialog mit einer statusanzeige(progressbar) läuft.

Nur starte ich diesen "ProgressDialog" nicht aus demDialog heraus, sondern will ihn bei einer Schleife mittels ButtonKlick bei einem FOrmular anzeigen lassen.
Der Dialog ist fertig, das Makro mit der Schleife auch, nur läuft die Schleife nur weiter, wenn ich den Dialog schliesse.

Wo ist der Denkfehler und wann muss ich den Dialog aufrufen, damit innerhalb des Makros der Fortschritt angezeigt wird ?

lg
Andreas

[keksi1970]

habs rausgefunde.

ich muss den Dialog nicht ausführen (execute) sondern nur anzeigen lassen (visible = true)

und schon gehts (endexecute nicht vergessen )

lg andreas

[oktobaer]

Hallo Andreas!

Interessantes Thema!
Könntes Du das bitte anhand eines kleinen Beispieles (Code) zeigen?

Danke!

Oktobaer

[turtle47]

Hi Oktobaer,

guckst Du mal hier.

Viel Erfolg.

Jürgen

[keksi1970]

sorry für die lange abwesenheit, aber "vodafone" halt :/

beispielcode :

Dialog erstellen, der "Status" heisst und progressbar "Fortschritt"

Code: Alles auswählen

Sub anzeigen
Dim StatusDialog as object
Dim StatusAnzeige as object
Dialoglibraries.Loadlibrary("Standard")
StatusDialog= CreateUnoDialog(Dialoglibraries.Standard.Status)
StatusAnzeige = StatusDialog.getControl("Fortschritt")
StatusAnzeige.model.progressvaluemax = 40 ' (Dein Wert)
StatusDialog.visible = true
For i = 0 to 40
StatusAnzeige.value = i
Wait 500
Next
End Sub

lg Andreas

[oktobaer]

Hallo Andreas!

Habe es heute erst testen können: Funktioniert perfekt!

Danke!

Oktobaer