البحث في الموقع
Showing results for tags 'حلقة تكرارية'.
تم العثور علي 1 نتيجه
-
السلام عليكم اخواني المطلوب 1- عمل حلقة تكرارية للأكواد في الفورم 2- كود تسمية تشيك بوكس تلقائيا باسم رأس كل عامود مع ترتيهم رأسيا بشكل منتظم أو كود يقوم بالانشاء والتسمية والترتيب تلقائيا في حدث الفورم Private Sub CheckBox1_Click() ' أهنا الكود الأول خاص بوضع صح كل التشيك بوكس الموجود في الفورم أو ازالة الصح وأريد الحلقة حتي تشيك بوكس 15 مثلا If CheckBox1 = False Then CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False CheckBox5.Value = False CheckBox6.Value = False ElseIf CheckBox1 = True Then CheckBox2.Value = True CheckBox3.Value = True CheckBox4.Value = True CheckBox5.Value = True CheckBox6.Value = True End If End Sub Private Sub CheckBox2_Click() 'هنا الكود الثاني خاص بكل تشيك بوكس على حدة وأريد الحلقة حتي تشيك بوكس 15مثلا If CheckBox2 = False Then Columns(2).Hidden = True ElseIf CheckBox2 = True Then Columns(2).Hidden = False End If End Sub Private Sub CheckBox3_Click() If CheckBox3 = False Then Columns(3).Hidden = True ElseIf CheckBox3 = True Then Columns(3).Hidden = False End If End Sub Private Sub CheckBox4_Click() If CheckBox4 = False Then Columns(4).Hidden = True ElseIf CheckBox4 = True Then Columns(4).Hidden = False End If End Sub Private Sub CheckBox5_Click() If CheckBox5 = False Then Columns(5).Hidden = True ElseIf CheckBox5 = True Then Columns(5).Hidden = False End If End Sub Private Sub CheckBox6_Click() If CheckBox6 = False Then Columns(6).Hidden = True ElseIf CheckBox6 = True Then Columns(6).Hidden = False End If End Sub CheckBox.rar