OpenOffice.info

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
'----------------------------------------

[quote]( Kann man das so sehen? )[/quote]

ja.
[quote]
Wie kann ich auf diesen Fall reagieren??[/quote]

Dazu musst Du bei OpenOffice einen sog. "Listener" nutzen, im Konkreten z.B. Diesen hier:
http://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/XTopWindowListener.html

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


Gruß
Stephan

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.