Dialog schließen - Ich krichs nich hin :(

[der.milco]

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:

Code: Alles auswählen

Sub DialogLaden

	DialogLibraries.loadLibrary("Standard")
	dialog = CreateUnoDialog(DialogLibraries.Standard.Warnung)
	
	dialog.execute

End Sub

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:

Code: Alles auswählen

Sub DialogBeenden

	dialog = CreateUnoDialog(DialogLibraries.Standard.Warnung)

   dialog.endExecute

End Sub

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:

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

[komma4]

Du erzeugst mit der Anweisung createUnoDialog() in der Sub DialogBeenden() eine zweite Instanz des Dialogs.

Erstelle eine öffentliche Variable dialog oberhalb alller SUBs, lasse die genannte Anweisung weg, und probiere es noch einmal....

Klappt's?

[der.milco]

Klappt's?

JEPP!!

Ich habe ganz oben

Code: Alles auswählen

dim Dialog as Object

eingefügt und die zweite Instanz-Anweisung entfernt...
Und jetzt kann ich den Dialog sooft öffnen und schließen, wie ich will. Sehr schön ...

Thanx @ Komma4