[BlackEagleSA]

السلام عليكم يا شباب

أنا رفقت المشروع بالمرفقات المطلوب هو كالتالي :

في المشروع في 4 check box وأنا أبغى منه انه يختار2 على الأقل و 3 على الأكثر يعني إذا اختار الخيارات 1و2و3 يقفل عليه الرابع مع مراعاة إحتمال انه يغير رأيه ويبطل ال3

وبعد هذا الكلام طلب صغير ثاني

في button في المشروع أنا أبغى البتن يكون enabled لمن هو يختار 3 أو أقل غير كذا يصير غير متاح

رغم أني حاولت كثير بس والله ما عرفت

واستخدمت هذا الكود

كود :

Function getcheck() As Integer
        Dim count As Integer
        For Each ct As CheckBox In Me.GroupBox1.Controls
            If ct.Checked = True Then
                count += 1
            End If
        Next
        Return count
    End Function

فهل له داعي أصلاً

مع العلم أني أستخدم فيجوال 2010

شاكراً لكم مقدماً

[amgadtamer]

المثال بعد التعديل

[BlackEagleSA]

أولاً أحب أشكرك مجددأ أخي أمجد والله إنك مبدع

وانت دائماً تثريني بالمزيد من المعلومات والأوامر زي الأمر اللي سويته في مثالي بعد التعديل فلو ممكن تشرح الكود هذا :

كود :

Sub CountChecked()
        Select Case getcheck()
            Case 2 To 3
                Button1.Enabled = True
            Case Else
                Button1.Enabled = False
        End Select
    End Sub

وسبب كتابتك للكود التالي في هذا الأمر :

كود :

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
        CountChecked()
    End Sub

يعني ليش كتبته في checkbox1_checkedchanged وليش check box 1 يعني هل تفرق لو قلت check box 2 وسويت نفس الكلام

وأشكرك مجدداً أخوي وأتمنى لك التوفيق والسداد دائماً

[amgadtamer]

قمنا بعمل إجراء وضعنا فيه جملة شرطيه لتحديد العناصر التى تم اختيارها فى حالة كانت تساوى 2 او 3 يتم تفعيل ال button قمنا باستدعاء هذا الإجراء فى الإجراء checkbox1_checkedchanged
ولكنه مرتبط بالاحداث
checkbox1.checkedchanged
checkbox2.checkedchanged
checkbox3.checkedchanged
checkbox4.checkedchanged