if list1.selected <> then

[pro2]

How can I check if one item is selected in a list box ???


[Edited by pro2 on 10-06-2000 at 05:26 PM]

[HeSaidJoe]

If list1.text = "yourtext" then Msgbox "Selected"

If list1.listindex = 1 then Msgbox "ListIndex " list1index selected

To check a specific item

If List1.Selected(5) = True Then
    'Item 5 is selected
End If

To see if any item is selected

For i = 0 To List1.ListCount
    If List1.Selected(i) Then 'There is an item selected
Next i

[pro2]

is it
For i = 0 To List1.ListCount
If List1.Selected(i) Then 'There is an item selected
Next i

or
For i = 0 To List1.ListCount -1
If List1.Selected(i) Then 'There is an item selected
Next i

??
cause the List count start to 1 and the Index start to 0 ..

[HeSaidJoe]

The listindex is zero based
so from 0 to list1.listcount -1

[pro2]

Ok thank'x a lot..
its workin..
but you forgot the
= True

in the second exemple Megatron ..

[HeSaidJoe]

For i = 0 To List1.ListCount
If List1.Selected(i) Then 'There is an item selected
Next i


You don't need the True for it to work
However he did forget the list1.lsitcount -1
and the end if

But I'm sure you figured that out.

For i = 0 To List1.ListCount - 1
    If List1.Selected(i) Then
       MsgBox "selected " & List1.ListIndex
    'There is an item selected
    End If
    
Next i

[dsy5]

Originally posted by HeSaidJoe


However he did forget the list1.lsitcount -1
and the end if

But I'm sure you figured that out.

Actually he didn't leave the End If out... it is not necessary if the Then is
satified on the same line as the IF.

i = i + 1
If i = 3 then i = 0  'you do not need an End If
PictureBox1.Picture = PictureBox2(i).Picture

[Edited by dsy5 on 10-06-2000 at 06:52 PM]

[HeSaidJoe]

dsy5: Thank you for the correction:
What you say it TRUE

Megatron, my humbles apologies...I added a line to your code without realizing I did.

Wayne

[BruceG]

It should be emphasized that the properties mentioned in HeSaidJoe's original response (Text or ListIndex) are all you need if only one item in the listbox can be selected - i.e., if the MultiSelect property is set to its default of "0 - None". You only need to loop through the items and check the Selected(x) property if you are allowing multi-selection (MultiSelect = Simple or Extended).