Hilfe bei ListBoxen (oder Dialogen)

[turtle47]

Hi SamSept,

versuche es mal hiermit:

Code: Alles auswählen

Sub ListBox_fuellen
odoc=thisComponent
oSheet=odoc.sheets(0)
odraw1=oSheet.drawpage
form1=odraw1.forms.getbyIndex(0)
oContr=form1.getbyname("ListBox")
aListe = array("eins", "zwei", "drei")
oContr.StringItemList = aListe()
End Sub

Viel Erfolg.

Jürgen

[Toxitom]

Hey SamSept,

Wie kann ich, wenn schon etwas in der ListBox steht und stehen bleiben soll, noch weitere Items hinzufügen.

Indem du den Array zuerst ausliest, dann änderst und schliesslich wieder zuweist. Also in der Art:

Code: Alles auswählen

aListe = oContr.StringItemList 
n = UBound(aListe())
redim preserve aListe(n + 1)
aListe (n+1) = "vier"
oContr.StringItemList = aListe

Und den Rest: Na, indem du das Programmierst. Ich verstehe den zweiten Teil deiner Frage nicht. Du markierst etwas, der Button löst ein Makro aus, das wertet die markierten Einträge aus und schreibt sie in die gewünschten Zellen. Wo ist das Problem?

Gruss
Thomas

[Toxitom]

Hey SamSept,

eigentlich will ich nur wissen wie ich an die indexe der markierten items in einer listbox rankomme.

Ich denke, du solltest dir doch mal entsprechende Literatur zulegen - falls du noch mehr programmieren willst. Das VBA Wissen hilft dir bei OOo wenig.

Über

Code: Alles auswählen

aSelIndexListe = oContr.SelectedItems

erhälst du eine Liste(Array) aller ausgewählten (markierten) Einträge, und zwar der Indices. Übwer die Itemliste und die IndexListe kannst du dann bequem alle gewählten Inhalte auslesen - falls du die brauchst. Aus dem Kopf:

Code: Alles auswählen

aListe = oContr.StringItemList
aSelIndexListe = oContr.SelectedItems
for i = 0 to uBound(aSelIndexListe)
    s = s & i & ": " & aListe(aSelIndexListe(i)) & chr(13)
next
msgbox s

Viele Grüße
Thomas