بسم الله الرحمن الرحيم
حبيت اشارككم هذه الفائدة وهي استخدام خاصية Tag للكائنات .. وتكمن ميزتها .. اذا كان عندك كائنات كثيرة ولنفرض وجود 50 صورة بالفورم وتريد ان تغير خاصية الحجم Size لعشرين صوره بحيث تكون أصغر وتريد تكبير حجم الثلاثين صورة الأخرى فماذا تفعل ..
فما عليك الا تحديد الصور العشرين وذلك بالنقر على احدها ثم اكبس مع الاستمرار على مفتاح Ctrl في لوحة المفاتيح ثم النقر على الصورة الاخرى حتى تنتهي من العشرين صورة المرادة ثم افلت مفتاح Ctrl ثم ادخل قيمة في خاصية Tag ولنفرض a ثم حدد الثلاثين صورة الباقية بنفس الطريقة السابقة ثم ادخل قيمة في خاصية Tag ولنفرض b واكتب في الكود التالي
Dim ctrl As Control For Each ctrl In Controls If ctrl.Tag = "a" Then ctrl.Height = 65 ElseIf ctrl.Tag = "b" Then ctrl.Height = 200 End If Next
والمثال في المرفق .. واخيرا اشكركم على هذا المنتدى الرائع .. الذي نستفيد منه يوميا .. فالحمدلله اولا واخرا