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.
Dialog
Moderator: Moderatoren
Re: Dialog
ja.( Kann man das so sehen? )
Dazu musst Du bei OpenOffice einen sog. "Listener" nutzen, im Konkreten z.B. Diesen hier:Wie kann ich auf diesen Fall reagieren??
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
- Dateianhänge
-
- Dialog_mit_Listener.odt
- (11.89 KiB) 102-mal heruntergeladen