Dialog

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

mikeleb
*******
Beiträge: 1315
Registriert: Fr, 09.12.2011 16:50

Re: Dialog

Beitrag von mikeleb »

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.
Gruß,
mikeleb
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Dialog

Beitrag von Stephan »

( 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
Dateianhänge
Dialog_mit_Listener.odt
(11.89 KiB) 102-mal heruntergeladen
Antworten