OpenOffice.info

Habe das Problem "gelöst" indem ich beim Aufruf eines Listeners alle Listener entferne bevor der Dialog geschlossen wird:



Dim oGDlg As Object
Dim oButtonCtrl(100) as object
Dim oListener(100) as object
Dim image_num as Integer
Dim ypos(100) As Long
Dim ysize As Long

Sub Template_Gallery_Show ...

Hallo zusammen,

folgendes Sub öffnet den Dialog-Editor nachdem ich den ausgeführten Dialog "Standard.Dialog1" schließe:


Sub Template_Gallery_Show()

oGDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)

oButtonCtrl = CreateUnoService( "com.sun.star.awt.UnoControlImageControl ...

Habe einige ältere Beiträge für die ich mich damals als Gast angemeldet hatte.
Da geht das dann wohl nicht. Ansonsten ist die Frage geklärt. Danke.

Ahh, verstehe. Die Zeile hatte ich übersehen. Ich werde dass nun so machen,
dass ich in der Symbolleiste für mein AddIn die Schaltfläche "Entwurfsmodus ein/aus" mit anzeige.
Der Benutzer muss dann halt erst den entsprechenden Modus wählen wenn er "die Diagramme verschieben"
oder "ein Menü per ...

Wie kann ich ein Thema als gelöst markieren?
(Oder können das nur Admins?)

Hmm,

wenn ich als Basisobjekt statt dem "com.sun.star.drawing.GraphicObjectShape" ein
"com.sun.star.drawing.ControlShape" verwende, steht mir also ein "mouse_Pressed" - Event zur Verfügung.
Dann wird der Listener-Funktion ein Event - Objekt übergeben. Das gefällt mir.

Leider kann das Basisobjekt ...

Hallo,

ich bin schon ganz glücklich, dass ich mit folgenden Zeilen einer Textbox ein Macro zuweisen kann:


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

Danke, mit location=application funktionierts bei mir wunderbar.