Fernand Vanrie escribió:
> Ariel Constenla-Haile wrote:
> Ariel, thanks for your quick reply, but as i can not enter the
> Defaultvalue in a listbox when Xraying
> oform.CbxTaal i get a empty table who learns me nothing :-)

mmm here I don't understand you

Let's see if I get it...

>> Fernand Vanrie escribió:
>>> Hallo all,
>>> First I treed to set with the GUI a  a Default value into a FormControl
>>> ListBox but no sucses, the opening ListBox stays empty and the entered
>>> value disapered.... ?
>>> then i tried  the same  me thing using the API no sucses.......;
>>> my best gues was
>>> oform.CbxTaal.setPropertyvalue("Selecteditems","N") "N" is one of the
>>> list entries
>>> but here i have a error  i need no string but a type short ?? how do
>>> i produce this type short  in Basic ?

the error is obvious:


sequence< short > SelectedItems - specifies the sequence of selected
items, identfied [sic. API typo] by the position.

You must set a sequence of short values, even if you want only one item
to be selected.
The short value corresponds to the item position you want to select
(index starts at 0).

>> did you try
>> http:///api.openoffice.org/docs/common/ref/com/sun/star/form/component/ListBox.html#DefaultSelection
>> ?

sample OOoBasic code:

Sub Main
        Dim oDoc as Object
        oDoc = ThisComponent
        'I assume there is a Writer doc
        'with logical form, and
        'its first component is the listbox
        Dim oForm as Object, oListBox as Object
        oForm = oDoc.getDrawPage().getForms().getByIndex(0)
        oListBox = oForm.getByIndex(0)
        oListBox.setPropertyValue( "StringItemList", _
                Array( "Item 0", "Item 1", "Item 2", "Item 3", "Item 4") )
        oListBox.setPropertyValue( "DefaultSelection", _
                Array( 1, 3 ) )
End Sub

Note that css.awt.UnoControlListBoxModel::SelectedItems is *NOT* the
same as  css::form::component::ListBox::DefaultSelection (I show this
with ::com::sun::star::form::XReset::reset(), which can be invoked
on the form and/or the form control, the first resets the whole logical
form to its default values).

Ariel Constenla-Haile
La Plata, Argentina

"Aus der Kriegsschule des Lebens
                - Was mich nicht umbringt,
        macht mich härter."
                Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.

To unsubscribe, e-mail: dev-unsubscr...@api.openoffice.org
For additional commands, e-mail: dev-h...@api.openoffice.org

Reply via email to