Checkedlistbox.CheckedItems Issue.

[mas_05]

I am working with a checkedlistbox and I am having a small issue. Here is the code that I am using.

Private Sub CListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CListBox1.ItemCheck
Dim itemchecked As Object

For Each itemchecked In CListBox1.CheckedItems
MsgBox(itemchecked)
Next

End Sub

Now the problem that I am having is when I check an item in the listbox it is suppost to bring up a msgbox displaying each item that is checked, however; that isn't what happens. Instead I get a msgbox that displays all the times thats checked except for the one that I just checked.

For example:
I check Item#1 - Nothing happens
Then I check Item #2 - Msgbox comes up with the name of Item#1 and then nothing else.
Item# 3 - I get a msgbox for 1 & 2 but not 3 and so on.

What am I doing wrong?

[mas_05]

I might also note that if I change:
msgbox(itemchecked)

to

msgbox(clistbox1.checkeditems.count)

I get a msgbox displaying the number of items that is checked, however; it is also 1 short of what it should be.

[sgdowney]

I think this event fires when you click on the item but before it is considered to be checked. This would allow some pre processing/validation before an item is selected.

[Phil Weber]

As noted in the documentation, the ItemCheck event "occurs when the checked state of an item changes." In other words, it's intended to provide information about the checked state of a single item, not the entire list.

Try this:

Private Sub CListBox1_ItemCheck(ByVal sender As Object, _ 
    ByVal e As System.Windows.Forms.ItemCheckEventArgs) _ 
    Handles CListBox1.ItemCheck

    ' Display msgbox for previous checked items
    For Each itemchecked As Object In CListBox1.CheckedItems
        MsgBox(itemchecked)
    Next

    ' If this event is fired because item was checked,
    If e.NewValue <> CheckState.Unchecked Then
        ' Display msgbox for newly-checked item
        MsgBox(CListBox1.Items(e.Index))
    End If

End Sub