OpenOffice.info

Verfasst: **So, 07.06.2020 17:25**

Hallo,
die Steuerung erfolgt dahingehend nicht über ein Ereignis.
Wird der Dialog aufgerufen, stoppt das Makro und wird nach Beendigung an der Stelle fortgeführt. Insofern benötigst du nichts weiter.

Verfasst: **So, 07.06.2020 17:33**

( Kann man das so sehen? )

ja.

Wie kann ich auf diesen Fall reagieren??

Dazu musst Du bei OpenOffice einen sog. "Listener" nutzen, im Konkreten z.B. Diesen hier:
http://www.openoffice.org/api/docs/comm ... tener.html

Code: Alles auswählen

Dim bib As Object
Dim dialog As Object

Sub start_dlg()
	BasicLibraries.LoadLibrary("Standard")
	DialogLibraries.LoadLibrary("Standard")
	bib = DialogLibraries.Standard.Dialog1
	dialog = CreateUnoDialog(bib)
	dialog.addTopWindowListener(CreateUnoListener("WindowListener_", "com.sun.star.awt.XTopWindowListener"))
	dialog.Execute
End Sub


Sub WindowListener_windowClosing(ev)
	Msgbox "Dialog mit Namen """ & ev.Source.Model.Name & """ WIRD geschlossen"
End Sub

Sub WindowListener_windowClosed(ev)
	Msgbox "Dialog mit Namen """ & ev.Source.Model.Name & """ WURDE geschlossen"
End Sub

'--weitere Events des Listeners:---------
Sub WindowListener_windowMinimized(ev)
End Sub

Sub WindowListener_windowNormalized(ev)
End Sub

Sub WindowListener_windowActivated(ev)
End Sub

Sub WindowListener_windowDeactivated(ev)
End Sub

Sub WindowListener_disposing(ev)
End Sub

Sub WindowListener_windowOpened(ev)
End Sub
'----------------------------------------

Gruß
Stephan

OpenOffice.info

Dialog

Re: Dialog

Re: Dialog