使用复选框选择行

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


本页地址:http://www.foxtable.com/webhelp/topics/2778.htm