程序代码: |
Dim ItemC As ListView.ListViewItemCollection = Me.ListView1.Items
For Each Item As ListViewItem In ItemC
MsgBox(Item.SubItems(0).Text)
Next
程序代码: |
Dim ItemC As ListView.SelectedListViewItemCollection = Me.ListView1.SelectedItems
For Each Item As ListViewItem In ItemC
MsgBox(Item.SubItems(2).Text)
Next