OpenOffice.info

dim Dialog as Object

[quote="komma4"]Klappt's?[/quote]

JEPP!! :D

Ich habe ganz oben [code]dim Dialog as Object[/code] 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

Du erzeugst mit der Anweisung [color=#008000]createUnoDialog()[/color] in der [color=#008000]Sub DialogBeenden()[/color] eine zweite Instanz des Dialogs.

Erstelle eine öffentliche Variable [color=#008000]dialog[/color] oberhalb alller [color=#008000]SUB[/color]s, lasse die genannte Anweisung weg, und probiere es noch einmal....

Klappt's?

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

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

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]Sub DialogLaden

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

dialog.execute

End Sub[/code]

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]Sub DialogBeenden

dialog = CreateUnoDialog(DialogLibraries.Standard.Warnung)

dialog.endExecute

End Sub[/code]

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]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
[/code]


Ich benutze WinXP SP2 mit OpenOffice 2.2.0