Dialog schließen - Ich krichs nich hin :(
Verfasst: So, 02.11.2008 21:51
Hallo an alle!
Ich bin verzweifelt! Ich will in einer Calc-Tabelle über einen Button im Formular einen Dialog öffnen.
Auf diesem Dialog soll dann später eine Reihe von Makros u.a. auch den soeben geöffneten Dialog schließen und wieder zum Tabellenblatt zurückkehren.
Den Dialog bekomme ich problemlos geöffnet mit:
Ich suche jetzt den Programmier-Code, mit dem ich den Dialog schließen kann!
Auf meinem Dialog ist bis jetzt ein Button "Schließen", der eben dieses tun soll.
Ich habe den Button beim Auslösen mit folgendem Makro verknüpft:
Aber beim Drücken auf den Button passiert gar nichts - nicht mal eine Fehlermeldung.
Kann mir jemand sagen, was ich falsch mache?
Ich habe schon etliche Anleitungen und das Forum hier durchsucht, aber überall ist nur von "endExecute" die Rede, aber nicht wie dieser Befehl zugeordnet und schließlich ausgeführt wird...
Auch Versuche mit Dispose oder setVisible anstellevon endExecute sind gescheitert.
Ich habe im Übrigen keinen weiteren Code in dem Modul. Hier der komplette Code, wie er bei mir eingetragen ist:
Ich benutze WinXP SP2 mit OpenOffice 2.2.0
Ich bin verzweifelt! Ich will in einer Calc-Tabelle über einen Button im Formular einen Dialog öffnen.
Auf diesem Dialog soll dann später eine Reihe von Makros u.a. auch den soeben geöffneten Dialog schließen und wieder zum Tabellenblatt zurückkehren.
Den Dialog bekomme ich problemlos geöffnet mit:
Code: Alles auswählen
Sub DialogLaden
DialogLibraries.loadLibrary("Standard")
dialog = CreateUnoDialog(DialogLibraries.Standard.Warnung)
dialog.execute
End Sub
Auf meinem Dialog ist bis jetzt ein Button "Schließen", der eben dieses tun soll.
Ich habe den Button beim Auslösen mit folgendem Makro verknüpft:
Code: Alles auswählen
Sub DialogBeenden
dialog = CreateUnoDialog(DialogLibraries.Standard.Warnung)
dialog.endExecute
End Sub
Kann mir jemand sagen, was ich falsch mache?
Ich habe schon etliche Anleitungen und das Forum hier durchsucht, aber überall ist nur von "endExecute" die Rede, aber nicht wie dieser Befehl zugeordnet und schließlich ausgeführt wird...

Auch Versuche mit Dispose oder setVisible anstellevon endExecute sind gescheitert.
Ich habe im Übrigen keinen weiteren Code in dem Modul. Hier der komplette Code, wie er bei mir eingetragen ist:
Code: Alles auswählen
REM ***** BASIC *****
Sub DialogLaden
DialogLibraries.loadLibrary("Standard")
dialog = CreateUnoDialog(DialogLibraries.Standard.Warnung)
dialog.execute
End Sub
Sub DialogBeenden
dialog = CreateUnoDialog(DialogLibraries.Standard.Warnung)
dialog.endExecute
End Sub
Ich benutze WinXP SP2 mit OpenOffice 2.2.0