[عاشق الرسول]

(05-08-19, 09:33 PM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم

المعذرة لم انتبه انها Checkdlistbox

غلى كل حال اجاب اخونا ابو روضة الغالي على تساؤلك مشكورا

جزاه الله كل الخير

وحتى لايظهر لك اي خطا جراء ال chekedListbox وهي فارغة

او كانت العناصر في حالة check تتحول الى Uncheck

اليك الكود كاملا

كود :

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
       If CheckedListBox1.Items.Count <> 0 Then
           If CheckBox1.Checked = True Then
               For i As Integer = 0 To CheckedListBox1.Items.Count - 1
                   CheckedListBox1.SetItemChecked(i, True)
               Next
           ElseIf CheckBox1.Checked = False Then
               For i As Integer = 0 To CheckedListBox1.Items.Count - 1
                   CheckedListBox1.SetItemChecked(i, False)
               Next
           End If
       End If
   End Sub

جزاكم الله خيرا على الاهتمام والرد
ممكن كود لحفظ العناصر المختارة داخل قاعدة بيانات أكسس وجزاكم الله خيرا