Repaint control ?

[janis]

This si my problem: I have checkedlistbox with about 25 items, when I need to check some items from code like this
For i = 0 To chklstbox.Items.Count - 1
chklstbox.SelectedIndex = i
if condition then chklstbox.SetItemChecked(i, True)
Next i
control flicker on the screen. Question is how to avoid that flickering?
In vb6 some controls (like msflexgrid) have property 'Redraw', when it's set to false controls don't redraw on the screen when some changes are perform.

regard j

[PT Exorcist]

i dont thing the best way to do taht is putting "chklstbox.SelectedIndex = i"..althogu i've never used that control there should be another way to loop thru all the items of the listbox or not?

[janis]

PT Exorcist said:

i've never used that control there should be another way to loop thru all the items of the listbox or not?

Did anybody know that 'another way'?

regard j

[trisuglow]

Try this

[b]chklstbox.BeginUpdate[/b]
 
For i = 0 To chklstbox.Items.Count - 1 
    chklstbox.SelectedIndex = i 
    if condition then chklstbox.SetItemChecked(i, True) 
Next i 
 
[b]chklstbox.EndUpdate[/b]

[janis]

I tried, that doesn't work.

regard j

[trisuglow]

ok then, try this.

Dim i As Integer
        Dim clb As New CheckedListBox()
        Dim bln As Boolean
 
        Cursor.Current = Cursors.WaitCursor
        chklstbox.BeginUpdate()
 
        For i = 0 To chklstbox.Items.Count - 1
            clb.Items.Add(chklstbox.Items(i))
        Next
 
        chklstbox.Items.Clear()
 
        For i = 0 To clb.Items.Count - 1
            bln = CBool(i Mod 3 = 1) 'condition
            chklstbox.Items.Add(clb.Items(i), bln)
        Next
 
        chklstbox.EndUpdate()
        Cursor.Current = Cursors.Default