[aljzazy]

لحفظ تنسيق الفورم وإعادة تطبيقه على فورم آخر في Visual Basic.NET، يمكنك إنشاء طريقة ديناميكية لتطبيق الإعدادات المشتركة على الفورمات. يمكنك استخدام دالة تقوم بحفظ التنسيقات وتطبيقها على أي فورم آخر.

---

الخطوات:
1. إنشاء دالة لحفظ التنسيق وتطبيقه:
يمكنك إنشاء دالة عامة تقوم بتطبيق التنسيقات المشتركة على الفورم.
vb
نسخ الكود

كود :

' دالة لتطبيق التنسيقات على الفورم
Public Sub ApplyFormStyle(targetForm As Form)
   ' إعداد حجم الفورم
   targetForm.Size = New Size(800, 600) ' على سبيل المثال

   ' إعداد لون الخلفية
   targetForm.BackColor = Color.LightBlue

   ' إعداد نوع الخط وحجمه
   targetForm.Font = New Font("Arial", 12, FontStyle.Regular)

   ' إعداد خصائص أخرى
   targetForm.FormBorderStyle = FormBorderStyle.FixedDialog
   targetForm.StartPosition = FormStartPosition.CenterScreen
End Sub

2. استدعاء الدالة في الفورم الآخر:
عند إنشاء فورم جديد وتريد تطبيق نفس التنسيق عليه، استدعِ الدالة

كود :

ApplyFormStyle

ومرر الفورم الحالي كمعامل.
vb
نسخ الكود

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' استدعاء دالة تنسيق الفورم
       ApplyFormStyle(Me)
   End Sub
End Class

3. تطبيق التنسيق على فورم جديد:
افترض أن لديك فورم آخر (Form2) وترغب في تطبيق نفس التنسيق عليه. فقط استدعِ الدالة بنفس الطريقة:
vb
نسخ الكود

كود :

Public Class Form2
   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' استدعاء دالة تنسيق الفورم
       ApplyFormStyle(Me)
   End Sub
End Class

---

تنسيقات إضافية:
يمكنك تضمين خصائص أخرى مثل:

• إعداد الأزرار (Buttons): إذا كانت لديك عناصر معينة مثل أزرار أو مربعات نصوص تحتاج لتنسيق موحد، يمكنك إضافتها إلى الدالة:
  vb
  نسخ الكود
  For Each ctrl As Control In targetForm.Controls    If TypeOf ctrl Is Button Then        ctrl.BackColor = Color.LightGray        ctrl.Font = New Font("Tahoma", 10, FontStyle.Bold)    End IfNext
• تطبيق التنسيقات على جميع الأدوات: يمكنك استخدام حلقات لتنسيق الأدوات (مثل النصوص أو القوائم) داخل الفورم.
  

---

إعداد التنسيقات في مشروع منفصل (اختياري):
إذا كنت تريد استخدام نفس التنسيقات في مشاريع متعددة:

1. أنشئ Module يحتوي على الدالة
   ApplyFormStyle
2. .
   
3. قم بإضافة هذا الـ Module إلى أي مشروع جديد.
   

---

ميزة الوراثة (Inheritance):
بدلًا من إنشاء فورم جديد في كل مرة، يمكنك إنشاء فورم رئيسي BaseForm يحتوي على التنسيقات المشتركة، وجعل الفورمات الأخرى ترث منه.
الخطوات:

1. أنشئ فورم رئيسي (BaseForm) وضع فيه التنسيقات.
   
2. اجعل الفورمات الأخرى ترث منه:
   vb
   نسخ الكود
   Public Class MyForm    Inherits BaseFormEnd Class

---

خلاصة:

• الطريقة الأولى: استخدام دالة
  ApplyFormStyle
• لتطبيق التنسيقات على الفورمات.
  
• الطريقة الثانية: استخدام وراثة (
  Inheritance
• ) لتطبيق التنسيقات بشكل تلقائي.