Die verschiedenen Arten der Zuweisung von EventListenern
Verfasst: Do, 16.02.2012 15:41
Hallo,
gerne wüsste ich, wie ich einem com.sun.star.drawing.RectangleShape ein EventListener hinzufügen kann.
Noch besser wäre, wenn mir jemand erklären könnte, wie ich selber herausfinde, wann ich einem Objekt wie einen Listener registriere.
Folgendes kann ich schon:
Auf der DrawPage:
com.sun.star.drawing.ControlShape
In einem Dialog:
com.sun.star.awt.UnoControlFixedTextModel
Und dann habe ich gelesen für
com.sun.star.drawing.GraphicObjectShape auf der DrawPage solle es so gehen:
Wobei ich noch nicht nachvollziehen kann, wo hier das OnClick herkommt.
Davon abgesehen: Ich hab jetzt als Beispiel mal ein com.sun.star.drawing.RectangleShape und krieg partout nicht heraus, wie ich hier ein EventListener drauf krieg. Also bei Mausklick auf dasselbe.
Auch in der API Doku kann ich nichts finden. Gibt es irgendwo eine Übersicht wann man was nehmen muss? Und warum eigentlich so verschiedene Vorgehensweisen?
Gruß,
gerne wüsste ich, wie ich einem com.sun.star.drawing.RectangleShape ein EventListener hinzufügen kann.
Noch besser wäre, wenn mir jemand erklären könnte, wie ich selber herausfinde, wann ich einem Objekt wie einen Listener registriere.
Folgendes kann ich schon:
Auf der DrawPage:
com.sun.star.drawing.ControlShape
Code: Alles auswählen
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.meineSub"
oForm.registerScriptEvent(nIndex, oEvent)
com.sun.star.awt.UnoControlFixedTextModel
Code: Alles auswählen
...
oListener = CreateUnoListener("MeinListener_", "com.sun.star.awt.XMouseListener")
oControl = oDlg.getControl("MeinObjekt")
oControl.addMouseListener(oListener)
...
Sub setStars_mousePressed(oEvent)
'hier passiert was
End Sub
Sub setStars_mouseReleased()
End Sub
Sub setStars_mouseEntered()
End Sub
Sub setStars_mouseExited()
End Sub
Sub setStars_disposing
End Sub
com.sun.star.drawing.GraphicObjectShape auf der DrawPage solle es so gehen:
Code: Alles auswählen
Dim aEventArgs(1) as new com.sun.star.beans.PropertyValue
aEventArgs(0).Name = "EventType"
aEventArgs(0).Value = "Script"
aEventArgs(1).Name = "Script"
aEventArgs(1).Value = "vnd.sun.star.script:Standard.Module1.meineSub?language=Basic&location=document"
oshape.Events.replaceByName("OnClick",aEventArgs)
Davon abgesehen: Ich hab jetzt als Beispiel mal ein com.sun.star.drawing.RectangleShape und krieg partout nicht heraus, wie ich hier ein EventListener drauf krieg. Also bei Mausklick auf dasselbe.
Auch in der API Doku kann ich nichts finden. Gibt es irgendwo eine Übersicht wann man was nehmen muss? Und warum eigentlich so verschiedene Vorgehensweisen?

Gruß,