كيفية تحديد العناصر المختارة "CheckedListBox"

UP

الحمد لله وجدتها

و للأفادة هذا هو الكود

Dim i As Integer

For i = 0 To CheckedListBox .Items.Count - 1

CheckedListBox .SelectedIndex = i

If CheckedListBox .GetItemChecked(i) = True Then

MessageBox.Show(CheckedListBox .SelectedValue.ToString)

'INSERTRECORD("CatLevels", "CATID", SqlDbType.SmallInt, C, "LevelID", SqlDbType.SmallInt, CheckedListBox .SelectedValue)

End If

Next

هذا هو الكود

Dim i As Integer

For i = 0 To CheckedListBox.Items.Count - 1

CheckedListBox.SelectedIndex = i

If CheckedListBox.GetItemChecked(i) = True Then

MessageBox.Show(CheckedListBox.SelectedValue.ToString)


End If

Next