CheckedListBox - Items per Code markieren

17/02/2008 - 01:35 von Andreas Huhn | Report spam
Hallo,

ich bekomme es einfach nicht hin alle Items des Controls zu markieren /
de-markieren.
So funktioniert es jedenfalls nicht:

Dim myEnumerator As IEnumerator
myEnumerator = checkedListBox1.CheckedIndices.GetEnumerator()

Dim y As Integer
While myEnumerator.MoveNext() <> False
y = CInt(myEnumerator.Current)
checkedListBox1.SetItemChecked(y, False)
End While

Wie kann ich das am besten anstellen?

Danke und Gruß,

Andreas
 

Lesen sie die antworten

#1 Peter Fleischer
17/02/2008 - 06:48 | Warnen spam
"Andreas Huhn" schrieb im Newsbeitrag
news:fp7vhf$jjq$01$

ich bekomme es einfach nicht hin alle Items des Controls zu markieren /
de-markieren.
So funktioniert es jedenfalls nicht:

Dim myEnumerator As IEnumerator
myEnumerator = checkedListBox1.CheckedIndices.GetEnumerator()

Dim y As Integer
While myEnumerator.MoveNext() <> False
y = CInt(myEnumerator.Current)
checkedListBox1.SetItemChecked(y, False)
End While

Wie kann ich das am besten anstellen?



Hi Andreas,
mit SetItemChecked bist du schon auf dem richtigen Weg. Es reicht aber eine
einfache Schleife mit einer Laufvariablen:

[vb]
Option Infer On
Option Strict On

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim clb As New CheckedListBox
Me.Controls.Add(clb)
With clb
.Dock = DockStyle.Fill
For i = 1 To 100
.Items.Add("Zeile " & i.ToString)
Next
End With

For i = 0 To clb.Items.Count - 1
clb.SetItemChecked(i, True)
Next

End Sub

End Class
[/vb]

Viele Gruesse

Peter

Ähnliche fragen