منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مساعدة بخصوص CHECKLISTBOX - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة بخصوص CHECKLISTBOX (/showthread.php?tid=30716)

مساعدة بخصوص CHECKLISTBOX - عاشق الرسول - 04-08-19

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

RE: مساعدة بخصوص CHECKLISTBOX - ابراهيم ايبو - 04-08-19

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


RE: مساعدة بخصوص CHECKLISTBOX - عاشق الرسول - 05-08-19

(04-08-19, 09:15 PM)ابراهيم ايبو كتب :
السلام عليكم اخي عاشق الرسول
تفضل  ضع عدد من ال   CheckBox  في Panel ثم ضع واحدة منفردة خارج البانل 
وفق المثال التالي

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

RE: مساعدة بخصوص CHECKLISTBOX - ابو روضة - 05-08-19

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

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


RE: مساعدة بخصوص CHECKLISTBOX - ابراهيم ايبو - 05-08-19

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


RE: مساعدة بخصوص CHECKLISTBOX - عاشق الرسول - 07-08-19

(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

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

RE: مساعدة بخصوص CHECKLISTBOX - ابراهيم ايبو - 07-08-19

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