openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Horst <technik_...@jrsch.de>
Subject Re: Item in Listbox Vorgeben
Date Wed, 17 Feb 2016 07:31:29 GMT
Hallo Oliver,
Das Makro läuft zwar, aber ich glaube anders als gewollt. Die Items 
werden zwar richtig rausgegeben
aber in der Box nicht angezeigt. Nur das ausgewählte Element. Doch das 
ist nicht wo wichtig.

Aber ich hatte von einer Listbox in einem Dialog gesprochen. DA 
funktionierte das ganze nicht.

Horst


Am 15.02.2016 um 19:40 schrieb Oliver Brinzing:
> REM *****  BASIC  *****
> Sub ListBoxExample()
>     Dim oDoc as Object
>     Dim oView as Object
>     Dim oDrawPage as Object
>     Dim oForms as Object
>     Dim oListBoxModel as Object
>     Dim oListBoxControl as Object
>     Dim mItems()
>
>     mItems() = Array("1","2","3")
>
>     oDoc = ThisComponent
>     oView = oDoc.getCurrentController()
>
>     ' jede Tabelle hat eine DrawPage
>     oDrawPage = oDoc.getDrawPages.getByIndex(0)
>
>     If oDrawPage.hasElements() Then
>         ' jede DrawPage kann mehrere Forms haben ...
>         oForms = oDrawPage.getForms()
>         If oForms.hasElements Then
>             ' i.d.R. "Formular"
>             oForm = oForms.getByIndex(0)
>             If oForm.hasByName("Listenfeld 1") Then
>                 ' UnoControlListBoxModel - com.sun.star.awt.XItemList
>                 oListBoxModel = oForm.getByName("Listenfeld 1")
>                 oListBoxModel.Enabled = True
>                 oListBoxModel.DropDown = True
>
>                 oListBoxModel.StringItemList() = mItems()
>                 oListBoxModel.insertItemText(0, "Hello")
>                 oListBoxModel.insertItemText(4, "World")
>                 oListBoxModel.selectedItems() = Array(4)
>
>                 ' UnoControlListBox - com.sun.star.awt.XListBox
>                 oListBoxControl = oView.getControl(oListBoxModel)
>                 MsgBox oListBoxControl.selectedItem & Chr(13) & 
> oListBoxControl.selectedItemPos & Chr(13) & oListBoxControl.ItemCount
>
>                 oListBoxControl.selectItemPos(2, True)
>                 MsgBox oListBoxControl.selectedItem & Chr(13) & 
> oListBoxControl.selectedItemPos & Chr(13) & oListBoxControl.ItemCount
>
>                 oListBoxControl.addItem("XXX", 5)
>
>                 oListBoxControl.selectItemPos(1, True)
>                 MsgBox oListBoxControl.selectedItem & Chr(13) & 
> oListBoxControl.selectedItemPos & Chr(13) & oListBoxControl.ItemCount
>             EndIf
>         EndIf
>     EndIf
> End Sub


---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message