[Solved] Select an item of listbox

[klausk]

I would like that from a listbox the second value of the list is preset when starting the dialog. Is there a method to achieve this?

Code: Select all

Sub cbxVerzNameFuellen
Dim strEintraege(2)
Dim myItem as Object
strEintraege(0)="Inhaltsverzeichnis"
strEintraege(1)="Sheetverzeichnis"
strEintraege(2)="Honorarverzeichnis"
oDlg.getControl("cbxVerzName").additems(strEintraege(),1)
oDlg.getControl("cbxVerzName").getItem(1)'selcet the second item of the list

end sub

[RoryOF]

In OpenOffice you will find a set of macros to manipulate listboxes
Access these by /Tools /Macros /Organize Macros /OpenOffice Basic : OpenOffice Macros : Tools: Listbox

Study these and you should get all the information you require.

[JeJe]

You could add the items to the listbox in the IDE and also select the second item in the listbox properties.

If that's not possible see here:

https://www.openoffice.org/api/docs/com ... stBox.html

If you don't have MRI you should get that - and easily answer your own question with it.

viewtopic.php?t=49294

[JeJe]

Or a search for threads already answered...

viewtopic.php?t=7248

Edit: I'm sure there'll be other threads if that one's no good...

Edit2: And there's Pitonyak's free books... I presume it will be in there...

https://www.pitonyak.org/oo.php

[klausk]

Xray tolds me that there are now no select methods

[JeJe]

They all work for me.

selectItemPos selects/deselects the item at the specified position.
selectItemsPos selects/deselects multiple items at the specified positions.
selectItem

https://www.openoffice.org/api/docs/com ... stBox.html

[klausk]

I try this without of success

Code: Select all

Sub cbxVerzNameFuellen
Dim strEintraege(2)
Dim strVer as String
Dim Eintraege 'as String
Dim oListBoxQuelle as Object
strEintraege(0)="Inhaltsverzeichnis"
strEintraege(1)="Sheetverzeichnis"
strEintraege(2)="Honorarverzeichnis"
oListBoxQuelle=oDlg.getControl("cbxVerzName")
oListBoxQuelle.additems(strEintraege(),1)
xray oListBoxQuelle
Eintraege = oDlg.getControl("cbxVerzName").getItems'ItemCount
msgbox Eintraege
	for i=0 to Ubound(Eintraege)
		strVer=Eintraege(i)'jeweiligen Namen auslesen
		oListBoxQuelle.addItem(strVer,i)'füllen
	next
	oListBoxQuelle.selectItemPos(0,true)
end sub

[JeJe]

See the Main sub in this document.

listboxselteat.odt

(11.24 KiB) Downloaded 76 times

[klausk]

thx so much for your superior service. have written macros years ago and am now no longer in practice