Question

VB中操作checkedlistbox控件时，要判断是否选中，选中的话就加一

但是一般来说，单击一下选中，再单击一一下取消，第一次单击时加一，第二次单击时减一，也就是说选中时加一，取消时减一，用程序如何实现，用最简单的方法。

Answer 1

Dim K As Integer
Private Sub Form_Load()
For I = 1 To 10
List1.AddItem I
Next
End Sub
Private Sub List1_ItemCheck(Item As Integer)
If List1.Selected(List1.ListIndex) Then
K = K + 1
Else
K = K - 1
End If
Me.Caption = "选择了 " & K & " 项"
End Sub