CheckedRows

返回一个集合，包括ListView中所有复选框已经勾选的行。

示例

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vls As String = ""
For Each vr As WinForm.ListViewRow In lvw.CheckedRows
    vls = vls & "," & vr("国家")
Next
vls = vls.Trim(",")
If vls > "" Then
    MessageBox.show("你选择的国家有:" & vls)
Else
    MessageBox.show("你并没有选择任何国家!" )
End If