How to select entries in ListBox in SingleSelect Mode?

[Rucksacktraeger]

I could select an Entry this way:

Code: Select all

LstU.ListItems(3).Selected = True 'Markiert Item 4

but why only in MultiSelect Mode? If I am not in MultiSelect Mode, how can I select Entries? With Select I mean to put the Caret on the selected position AND get the Background blue.

In MultiSelectMode 0 I get an error like this: Method 'Selected' for the Object 'IListBoxItem' failed (translated from german)


Btw: I tried the Unicode Listbox a lot and I played also with this:

Code: Select all

MsgBox LstU.SelectedItem.Index '3
MsgBox LstU.ListItems.Item(3).Index '3
MsgBox LstU.CaretItem.Index '3
MsgBox LstU.CaretItem.Selected 'wahr

[TiKu]

Try this:

Code: Select all

Set LstU.SelectedItem = <YourItem>

[Rucksacktraeger]

Thanks, that helped me!
This is my result for anyone with the same Problem:

MultiSelect = 1 or 2

Code: Select all

'    Select
    LstU.MultiSelect = msNormal
    LstU.ListItems(3).Selected = True 'Markiert Item 4
    LstU.ListItems(5).Selected = True 'Markiert Item 6

'    Deselect ALL
    LstU.DeselectItems 'funzt nur bei MultiSelect

'    Deselect one entry ???

MultiSelect = 0

Code: Select all

'   Select
    LstU.MultiSelect = msNone
    Set LstU.SelectedItem = LstU.ListItems.Item(3)

'   Deselect
    LstU.AllowItemSelection = Not LstU.AllowItemSelection 'Trick 17 to loose the Selection (the blue background)
    LstU.AllowItemSelection = Not LstU.AllowItemSelection

[TiKu]

Code: Select all

'    Deselect one entry ???

Code: Select all

LstU.ListItems(5).Selected = False

Code: Select all

'   Deselect
    LstU.AllowItemSelection = Not LstU.AllowItemSelection 'Trick 17 to loose the Selection (the blue background)
    LstU.AllowItemSelection = Not LstU.AllowItemSelection

Code: Select all

Set LstU.SelectedItem = Nothing

[Rucksacktraeger]

Hi,

this thread is quite old. But I have to change the old project and I ran again into the problem I had a couple of years ago.

I am in SingleEntry Mode and I can select an entry with this:
Set LstU.SelectedItem = <YourItem>

But I could NOT select a specific row (back than and now.)
LstU.ListItems(5).Selected = False

[TiKu]

LstU.ListItems(5).Selected = False will work in multi-selection mode only.

[Rucksacktraeger]

yeah, so is there really no chance to select a specific row by rownumber?

[TiKu]

You can do this:
Set LstU.SelectedItem = LstU.ListItems(5)

Doesn't it work?

[Rucksacktraeger]

Wow. Thanks!!!

[TiKu]

Ah, and to remove the selection, just set SelectedItem to Nothing.