[gelöst]Hinweisfenster "Bitte warten!" anzeigen

[Zoidberg]

Ich habe mein Makro jetzt schon ziemlich weit fertig. Da es Daten aus anderen Tabellen bezieht dauert die Abarbeitung natürlich etwas. Das sieht man leider nicht, also hat ein "unwissender" das Gefühl es passiert nichts. Aus diesem Grund möchte ich solange das Makro läuft ein Fenster mit einem Hinweis anzeigen.

Dialoge unterbrechen ja den Programmablauf des Makros. Wie kann ich das realisieren? Ich wollte ein Formular nehmen, aber ich bekomm es nicht hin ein freistehendes Fenster dafür zu erstellen. Geht das überhaupt? An sich fänd ich einen Dialog schon ganz angenehm von der Optik her.

Was kann ich tun?

Danke !

Gruß, Zoidberg

[komma4]

Anzeige eines Fortschrittbalkens in der Statuszeile?

[Zoidberg]

Ich selbst schau selten auf die Statuszeile. Ich denke das geht vielen so. Ein Fenster in der Mitte wäre die bessere Lösung.

[ykcim]

Hallo,

starte das Makro in einem Dialog. Es gibt einen Forrtschrittsbalken. Diesen kannst Du verwenden und den Dialog zum Schluß automatisch schließen.

mfg
Michael

[Zoidberg]

Das heißt ich mach den Dialogstarter als eigenes Sub, und rufe darin einfach das Makro auf? Das werd ich gleich mal Probieren. Mit dem Fortschrittsbalken hab ich noch keine Erfahrung. Woher bekommt der denn dann seine Werte?

Danke auf jeden Fall schonmal!

[ykcim]

Richtig. Ein Makro für den Dialog und ein dort ein Button für das eigentliche Makro.
Hier ein Mustercode. Ich habe gerade diese Woche was dazu schreiben müssen.

Code: Alles auswählen

dim mydlg as object

sub start
  Dialoglibraries.Loadlibrary("Standard")
  MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
  MyDlg.execute()
end sub

sub makro
      myctrl=myDlg.getControl("ProgressBar1")
     'Festsetzen des Maximalwertes
      myctrl.model.ProgressValueMax=100 
     for i=0 to 100
      '....
        'Der Fortschritt
         myctrl.value=i     
    next i
    mydlg.endexecute()
end sub

mfg
Michael

[Zoidberg]

Super genial! Das ist jetzt sogar noch besser als ich es geplant hatte. Das mit dem ProgressBar ist der Hammer. Danke dafür!