如何判断使用了checkbox的listview控件中是否有listitems被checked以及......

Selected 属性（ActiveX 控件）
      返回或设置确定一个对象是否被选中的值。对于 ListItem 对象，Selected 属性不设置 SelectedItem 属性，这样就不会使对象被选中。它仅返回一值，表明是否已用其它方法选中了 ListItem 对象。语法object.Selected [ = boolean]Selected 属性语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
boolean 布尔表达式，指明对象是否已被选中。 
说明用 Selected 属性编程选择指定的 Node 或 Tab 对象。一旦用此法选定了对象，就可对此对象执行各种操作，如设置各种属性及调用各种方法。为选择指定的 Node 对象，必须通过它的 Index 属性或 Key 属性的值去引用它。下面的例子是在 TreeView 控件中选择指定的 Node 对象：Private Sub Command1_Click()
   TreeView1.Nodes(3).Selected = True '选择对象。
   '用 SelectedItem 属性得到对该对象的引用。
   TreeView1.SelectedItem.Text = "Changed Text"
End Sub在 ListView 控件中，SelectedItem 属性总是引用第一个选中的项，因此，如多个项被选中，必须遍历所有选中的项，以校验每个项的 Selected 属性。注意 不用 Select 属性去编程选择 ListItem 对象，而用带有 SelectedItem 属性的 Set 语句，如：Set ListView1.SelectedItem = ListView1.ListItems(1)
下面例子添加三个 ListItem 对象到 ListView 控件。当单击窗体时，代码用 Selected 属性来确定指定的 ListView 对象是否被选中。为试用此例，在窗体上放置 ListView 控件并粘贴下面的代码到窗体的声明部分。运行此例，选择 ListView，并单击窗体。Private Sub Form_Load()
   Listview1.BorderStyle = vbFixedSingle  '显示边框。
   Dim itmX As ListViewItem
   Set itmX = ListView1.ListItems.Add(,,"Item 1")
   Set itmX = ListView1.ListItems.Add(,,"Item 2")
   Set itmX = ListView1.ListItems.Add(,,"Item 3")
End SubPrivate Sub Form_Click()
   Dim intX As Integer
   On Error Resume Next '如果整数未输入。
   intX = InputBox("Check Item", , Listview1.SelectedItem.Index)
   If IsNumeric(intX) Then   '确保整数已输入。
      If ListView1.ListItems(intX).Selected = True Then
         MsgBox ListView1.ListItems(intX).Text & " is selected."
      Else
         MsgBox "Not selected"
      End If
   End If
End Sub