[مصمم هاوي]

(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 


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


  تحديد التشك بوكس.rar (الحجم : 1.92 ك ب / التحميلات : 10)