使用复选框选择行

为了便于学习本节的内容，可以先打开CaseStudy目录下的文件“ListView.Table”，并参考该文件名为“示例十一”的窗口。

ListView有个CheckBoxes属性，将其设置为True，可以显示复选框：

ListView有个CheckedRows属性，用于返回通过复选框选择的所有行，例如上图按钮的Click事件代码为：

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

提示：

1、平铺模式不支持复选框。
2、最好将MultiSelect属性设置为False，因为既然用复选框了，就没有必要再提供按Ctrl多选的功能了。
3、在平铺模式下，不能显示复选框。