使用复选框选择行
为了便于学习本节的内容,可以先打开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、在平铺模式下,不能显示复选框。