[abo ragab]

السلام عليكم ورحمة الله وبركاتة 
اريد من اخواني ان يشرحو لي طريقة حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك بمعني اني قمت بأنشاء فورم 1 وقمت بأختار حجم الخط واللون وحجم الفورم وبعض الخصائص الاخري اريد حفظ التنسيق لاستخدامة في فورم اخر بدلا من التعديل في كل مرة وجزاكم الله خيرا

[justforit]

(12-12-24, 09:20 PM)abo ragab كتب : السلام عليكم ورحمة الله وبركاتة 
اريد من اخواني ان يشرحو لي طريقة حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك بمعني اني قمت بأنشاء فورم 1 وقمت بأختار حجم الخط واللون وحجم الفورم وبعض الخصائص الاخري اريد حفظ التنسيق لاستخدامة في فورم اخر بدلا من التعديل في كل مرة وجزاكم الله خيرا

و عليكم السلام و ر حمة الله و  بركاته
يمكنك عن طريق حفظ الخصائص في my.settings للفورم الاول ثم تستدعيها في الفورم الاخر.

[abo ragab]

جزاك الله خيرا اخي justforit على الرد
هل يوجد طريقة اخري غير هذة الطريقة

[princelovelorn]

يمكنك الأطلاع على هذا الموضوع لعله يفيدك

[مشروع] [لا جديد] تغيير خصائص مختارات من الادوات وحفظه وقت التشغيل

[Taha Okla]

في الاستديو ع جهة اليمين .. تجد مربع يعرض النوافذ (Solution Explorer) :
تستطيع أن تجعل كل نافذة تعرض ما فيها كشجرة : 
مثلا Form1.vb  تجعله يعرض ما يوجد تحته : 
فتعرض : Form1  >>    و  Form1  ستعرض ما تحته
ستجد في هذه الأخيرة عرض لأسماء الاجراءات واسماء الأكواد التي فيها :
منها الاجراء (InitializeComponent)   
ضمن هذا الاجراء ستجد عدة فقرات كل فقرة تبدأ باسم الأداة بعنوان باللون الاخضر(أي غير مفعل)
انزل حتى تصل للعنوان :  

كود :

'Form1

ستجد تحها كل الخصائص المتعلقة بهذه النافذة ،، مثلاً :

كود :

'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(903, 497)
.
.
.
Me.Font = New System.Drawing.Font("Times New Roman", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(6, 5, 6, 5)
Me.Name = "Form1"
Me.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Text = "Form1"

هذه هي الخصائص التي تتعلق بالنافذة الأولى :
انسخ ما تريد منها واستبدله بما يقابله في النافذة الثانية والثالثة ..
واترك ما لا يناسب مثل اسم النافذة ...

[abo ragab]

جزاك الله خيرا اخي princelovelorn على الرد
جزاك الله خيرا اخي Taha Oklaعلى الرد
شكرا لكم جميعا

[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
• ) لتطبيق التنسيقات بشكل تلقائي.
  

[abo ragab]

justforit

princelovelorn

Taha Okla

aljzazy

جزاكم الله كل خير ورحم الله والديكم