OpenOffice.info

Sub xrayTest

' laden der XRAY-Routinen
GlobalScope.BasicLibraries.Loadlibrary("XrayTool")

oDok = ThisComponent

xray oDok

End Sub

[quote="ihja"]@komma4: Weiß leider nicht genau wie man XRay benutzt. Kannst du mir mla nen Bsp geben wie man dieses Element untersuchen könnte?[/quote]
[code]
Sub xrayTest

' laden der XRAY-Routinen
GlobalScope.BasicLibraries.Loadlibrary("XrayTool")

oDok = ThisComponent

xray oDok

End Sub[/code]

Einfach, oder?

@DPunch: Jo danke musws ich mal ausprobieren wenn ich wieder kann. Ich melde mich dann nochmal!

@komma4: Weiß leider nicht genau wie man XRay benutzt. Kannst du mir mla nen Bsp geben wie man dieses Element untersuchen könnte?

oList= oForm2.getByName("Liste")

oDoc = StarDesktop.CurrentComponent
oForm = oDoc.DrawPage.Forms.GetByIndex(0)

oList= oForm2.getByName("Liste") '<-------------- Hier kriegst Du das Model
oListControl = oDoc.CurrentController.getControl(oList) '<----------------------- So bekommst Du Zugriff auf das Control der Listbox
REM oList.SelectedItemPos   '<-- Model unterstützt das Interface XListBox nicht, daher nicht möglich
MsgBox oListControl.SelectedItemPos '<--- Control unterstützt das Interface, somit stehen auch dessen Methoden zur Verfügung

Aloha

[quote="OOo Wiki"]The [b]list box control[/b] that supports the interface com.sun.star.awt.XListBox offers more convenient functions than the list box model. For example, it offers the method
selectItemPos( [in] short nPos,[in] boolean bSelect ) to select or deselect a single item in the list box.[/quote]

Ich hab den wichtigen Teil aus Deinem Link mal fett markiert.

Mit
[code]oList= oForm2.getByName("Liste")[/code]
kriegst Du aber das Model (com.sun.star.comp.forms.OListBoxModel), nicht das Control der Listbox.
Um auf die Methoden des Interfaces (wie auch [url=http://api.openoffice.org/docs/common/ref/com/sun/star/awt/XListBox.html#selectItemPos]selectItemPos[/url]) zuzugreifen, benötigst Du das Control der ListBox (com.sun.star.comp.forms.OListBoxControl), welches das Interface XListBox unterstützt.

[code]
oDoc = StarDesktop.CurrentComponent
oForm = oDoc.DrawPage.Forms.GetByIndex(0)

oList= oForm2.getByName("Liste") '<-------------- Hier kriegst Du das Model
oListControl = oDoc.CurrentController.getControl(oList) '<----------------------- So bekommst Du Zugriff auf das Control der Listbox
REM oList.SelectedItemPos '<-- Model unterstützt das Interface XListBox nicht, daher nicht möglich
MsgBox oListControl.SelectedItemPos '<--- Control unterstützt das Interface, somit stehen auch dessen Methoden zur Verfügung
[/code]

Hast Du mit XRAY überprüft, dass das Objekt wirklich vorhanden ist?

Welche Fehlermeldung bekommst Du?

oDoc = StarDesktop.CurrentComponent
oForm = oDoc.DrawPage.Forms.GetByIndex(0)

oList= oForm2.getByName("Liste")
oList.SelectedItemPos 'mit verschiedensten Variationen der Methode also mit Argumenten oder so probiert findet er trotzdem nicht

Die Frage nach selectItemPos() lässt schon vermuten was ich vorhabe. Ich will mit einem Makro einen beliebigen Listeneintrag des Dropdownmenüs auswählen. Gefunden habe ich die Methode hier: [url]http://wiki.services.openoffice.org/wiki/Documentation/DevGuide/GUI/List_Box[/url]. Leider stellt mein Listboxobject diese leider nicht zur Verfügung.

Hier der Code:
[code]
oDoc = StarDesktop.CurrentComponent
oForm = oDoc.DrawPage.Forms.GetByIndex(0)

oList= oForm2.getByName("Liste")
oList.SelectedItemPos 'mit verschiedensten Variationen der Methode also mit Argumenten oder so probiert findet er trotzdem nicht[/code]

Danke schonmal!



[color=#800000]Moderation,4[/color]: Makro-Fragen bitte im zuständigen Unterforum; verschoben