منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم رحمة الله وبركاته
ارجو المساعدة
اريد عمل اختيار لكل العناصر المجودة في الـ 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

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

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

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

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