OpenOffice.info

Mit CreateUnoListener kannst Du Dir jedes Interface liefern lassen und dessen Methoden überschreiben.

Frieder D. hat geschrieben:Es gibt allerdings auch Listener, die nicht vom "XEventListener" abstammen, und somit die Methode "disposing" nicht benötigen.
Mir ist zumindest ein Beispiel bekannt

Sub Main	
	binKeinListener = CreateUnoListener("uberschriebeneMethode_","com.sun.star.sheet.XSpreadsheetDocument")
	MsgBox binKeinListener.Dbg_Methods
	binKeinListener.getSheets()
End Sub

Function uberschriebeneMethode_getSheets
	MsgBox "Hallo"
End Function

Frieder D. hat geschrieben:Dafür gibt es viele Anwendungsbeispiele:
z.B. wenn du den Inhalt der Zwischenablage bekommen möchtest, ... Oder wenn du einen "XModifyListener" einer Zelle (oder einem Bereich) zuweisen willst, ...oder dem Dokument einen "XPrintJobListener" zuweisen....

Sorry, aber die Antwort ist... komplett falsch.
Wie kommst Du darauf?

oTR = createUnoListener("Tr_", "com.sun.star.datatransfer.XTransferable") 

Gibt es hierfür irgendein Anwendungsfall? Wofür braucht man einen Listener, der nur zur Laufzeit gültig ist?

DPunch hat geschrieben:mit addEventListener zur Laufzeit einen Listener erstellst, der eben auch nur zur Laufzeit seine Gültigkeit behält.

DPunch hat geschrieben:...Der Unterschied zwischen den beiden Methoden ist, ...

Frieder D. hat geschrieben:Es gibt verschiedene arten von Listenern. Manche brauchen eine eine disposing Routine, und manche nicht.

Maggus hat geschrieben:Wofür soll denn dann aber das addEventListener gut sein?
Und noch eine Frage: Man soll doch für einen Listener immer eine disposing Routine zur Verfügung stellen. Erübrigt sich das in diesem Falle?

Frieder D. hat geschrieben:Es gibt verschiedene arten von Listenern. Manche brauchen eine eine disposing Routine, und manche nicht.

Alle Listeners stammen vom XEventListener ab, so dass die Methode disposing(ObjectEvent) auch implementiert sein muss.

Und noch eine Frage: Man soll doch für einen Listener immer eine disposing Routine zur Verfügung stellen. Erübrigt sich das in diesem Falle?

Frieder D. hat geschrieben:Was du brauchst ist ein "com.sun.star.script.ScriptEventDescriptor"

      Dim oEvent as new com.sun.star.script.ScriptEventDescriptor
      oEvent.ListenerType = "com.sun.star.awt.XMouseListener"
      oEvent.EventMethod = "mouseReleased"
      oEvent.ScriptType = "StarBasic"
      oEvent.ScriptCode = "vnd.sun.star.script:Standard.Module1.test"
      oForm.registerScriptEvent(nIndex, oEvent)