CheckedIndices

整数型集合,返回所有选定项目的位置。

示例

Dim lst As WinForm.CheckedListBox
Dim
msg As String
lst = Forms(
"窗口1").Controls("CheckedListBox1")
msg =
"总共选中了" & lst.CheckedIndices.Count & "项,分别是:"
For
Each Index As Integer In lst.CheckedIndices
    msg = msg & Index &
" "
Next

Messagebox.Show(msg)

 

 


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