/ Forums / Advansys Formativ / Creating Solutions with Formativ / SelectedItems – Listview / Reply To: SelectedItems – Listview
September 19, 2006 at 5:09 pm
#7747
The online Help file entry on TListView does not indicate that there is a property like SelectedItems. This is true also for TRzListView.
Here is a simple example which tests the ListItem property Selected in order to extract your guideline data from multiple selected items (assume MultiSelect = True) and displays them in a message box:
'-------------------------------------------------------------------------------
dim I
dim iArea, iGuideline, iNum
dim iText
with CDIP_FRM.ListView.Items
iText = "Selected Items:" & vbNewLine
for I = 0 to .Count - 1
if .Item(I).Selected then
iArea = .Item(I).Caption
iGuideline = .Item(I).SubItems(1)
iNum = .Item(I).SubItems(0)
iText = iText & vbNewLine & iNum & vbTab & iArea & vbTab & iGuideline
end if
next
end with
msgbox iText
'-------------------------------------------------------------------------------
I hope this helps.
Regards,
Advansys Support