منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود تحديد وإلغاء تحديد التشك بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود تحديد وإلغاء تحديد التشك بوكس (/showthread.php?tid=49844)

كود تحديد وإلغاء تحديد التشك بوكس - مصمم هاوي - 10-08-24

عندي مشكلة بسيطة ولكن للأسف لم أستطيع تنفيذها !!!
نفرض أن لدى عدد (12) من التشك بوكس.
المطلوب أريد كود لتحديد الكل
وأخر لإلغاء التحديد

RE: كود تحديد وإلغاء تحديد التشك بوكس - مصمم هاوي - 10-08-24

(10-08-24, 10:47 AM)Amir_Alzubidy كتب : اهلا بك اخي الحبيب 

اتمنى ان يكون هذا هو المطلوب 
تحديد الكل : 
PHP كود :
Private Sub SelectAll()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is CheckBox Then
            ctrl.Value = vbChecked
        End If
    Next ctrl
End Sub 
الغاء تحديد الكل: 
PHP كود :
Private Sub Un_SelectAll()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is CheckBox Then
            ctrl.Value = vbUnchecked
        End If
    Next ctrl
End Sub 

بارك الله فيك أخي الحبيب أمير على سرعة الرد؛ ولكن يوجد خطأ كما هو موضح في المثال الصغير المرفق

[attachment=29701]

RE: كود تحديد وإلغاء تحديد التشك بوكس - مصمم هاوي - 11-08-24

(10-08-24, 11:15 PM)Amir_Alzubidy كتب : اهلا بك اخي عمران ، 
اتمنى ان يكون هذا هو المطلوب :

هذا هــو المطلـوب
فتح الله عليك أخــــــــي العزيـــــــز وصديقــــــــــــي الحبيب أميـر
وجعلـه فــي ميزان حسناتك.
وأسألُ اللــه أن يُفرج كربك، ويُيسر همّك