ListView: Determine if Item was Selected 3

[rennis]

How is it possible to determine if a item in a listview was selected? If no item was selected then a procedure would not occur, however, if there was one then proceed.

 

[SBerthold]

Check the
ListView.ListItems(0).Selected
property

You can loop through all ListItems using
dim oListItem as ListItem
For Each oListItem in ListView.ListItems
if oListItem.Selected then

end if
next oListItem

 

[rennis]

Thanks SBerthold. This works, but it also works if no item was selected...

Thanks for your help though

 

[rennis]

My apologies, but would this apply to subitems as well?

 

[SBerthold]

I am not sure what you mean with "apply".
But you can also use a For Each-Next, (or just a basic For loop using the Index and Count values), on the ListItems and the SubItems of a ListItem:

Dim oListItem As MSComctlLib.ListItem
Dim oSubItem  As MSComctlLib.ListSubItem

For Each oListItem in myListView.ListItems
     If oListItem.Selected then
        'X
     End If

     For Each oSubItem In oListItem.ListSubItems
          'X
     Next oSubItem 
Next oListItem

 

[mattKnight]

UM you don't need to iterate through the listview testing each item.

use the SelectedItem property

so

Dim oListItem As MSComctlLib.ListItem
Dim oSubItem  As MSComctlLib.ListSubItem

Set oListItem = myListView.SelectedItem

If oListItem is Nothing then
'Nothing Selected
else
'oListItem contains valid reference to
'selected item, so we need to process appropriately
end if

Take Care

Matt
If at first you don't succeed, skydiving is not for you.

 

[strongm]

Well, you do if you think more than one item might be selected ...

 

[mattKnight]

Strongm - Correct!

If Multiselect is in use, testing the .SelectedItem property will tell you if you need to iterate through the listview to find the other selections.

The OP does imply that it is a single selection though...


Take Care

Matt
If at first you don't succeed, skydiving is not for you.

 

[strongm]

Very true

 

[rennis]

Thanks everyone! greatly appreciate your assistance