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

السلام عليكم رحمة الله وبركاته
ارجو المساعدة
اريد عمل اختيار لكل العناصر المجودة في الـ CHECKLISTBOX بمجرد الضغط على CECKBOX منفصل
وجزاكم الله خيرا

[ابراهيم ايبو]

السلام عليكم اخي عاشق الرسول

تفضل  ضع عدد من ال   CheckBox  في Panel ثم ضع واحدة منفردة خارج البانل 

وفق المثال التالي

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

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

السلام عليكم اخي عاشق الرسول

تفضل  ضع عدد من ال   CheckBox  في Panel ثم ضع واحدة منفردة خارج البانل 

وفق المثال التالي

جزاك الله خيرا
بس للي بسأل عنه أدة CHECKEDLISTBOX

[ابو روضة]

اتفضل ضعه داخل الCECKBOX فى حدث CheckBox1_CheckedChanged
او اضغط دبل كلك عليها وضع فيها هذا الكود

كود :

 Dim checked As Boolean = True
       For i As Integer = 0 To checkedListBox1.Items.Count - 1
           checkedListBox1.SetItemChecked(i, checked)
       Next

[ابراهيم ايبو]

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

المعذرة لم انتبه انها 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

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

(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

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

[ابراهيم ايبو]

السلام عليكم اخي عاشق الرسول

تفضل المثال اصبح اضافة العناصر  ثم تحديدها كيفما تريد ثم حفظها في قاعدة البيانات

فعلا كما قال اخي سعود اصبحت قواعد البيانات لدينا هوس دائم في كل امثلتنا