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

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

(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]

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

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