كيفية تغيير لون الخلفية لنموذج أصل MDI في Visual Basic.NET أو في Visual Basic 2005

للحصول على إصدار Microsoft Visual C#.NET من هذه المقالة، راجع 319465 .

في هذه المهمة

ملخص

توضح هذه المقالة خطوة بخطوة كيفية تغيير لون الخلفية لنموذج أصل واجهة متعدد المستندات (MDI) برمجياً باستخدام Visual Basic.NET أو Visual Basic 2005.

عند استخدام نموذج Windows كنموذج أصل MDI، إعداد لون خلفية التطبيق في لوحة تحكم Windows، لا لون الخلفية خاصية النموذج، يحدد لون خلفية النموذج. توضح الخطوات التالية كيفية تغيير لون خلفية النموذج أصل MDI إلى لون آخر.

إنشاء تطبيق نماذج Windows باستخدام Visual Basic.NET أو Visual Basic 2005

  1. إنشاء تطبيق Visual Basic.NET أو Visual Basic 2005 Windows جديدة. يتم إنشاء Form1 افتراضياً.

    ملاحظة: يجب تغيير التعليمات البرمجية في Visual Basic 2005. إذا قمت بإنشاء نموذج جديد يسمى Form1 في Visual Basic 2005، يكون لديك ملف Form1.vb للتعليمات البرمجية الخاصة بك وملف Form1.Designer.vb يحتوي على القسم الذي تم إنشاؤه تلقائياً. مصمم نماذج Windows يستخدم الكلمة الأساسية الجزئية لتقسيم تطبيق Form1 إلى ملفين مستقلين. يمنع هذا السلوك التعليمة البرمجية تصدر مصمم يتم interspersed مع التعليمات البرمجية الخاصة بك.



    لمزيد من المعلومات حول التحسينات لغة Visual Basic 2005 جديد، قم بزيارة موقع Microsoft التالي على الويب:

    لمزيد من المعلومات حول فئات جزئية ومصمم نماذج Windows، قم بزيارة موقع Microsoft التالي على الويب:

  2. انقر فوق النموذج ومن ثم، في القائمة عرض ، حدد النافذة خصائص لعرض خصائص النموذج.
  3. تعيين الخاصية BackColor إلى اللون الذي تريده (مثل LightBlue).
  4. تعيين الخاصية إيسمديكونتينير إلى True. لاحظ أن يتغير لون خلفية النموذج إلى اللون الذي يتم تعيين لون خلفية التطبيق إلى في "لوحة التحكم".
  5. تعيين خاصية حالة حد أقصى.
  6. انقر نقراً مزدوجاً فوق النموذج لعرض إطار التعليمات البرمجية الخاصة به.
  7. قم بلصق التعليمة البرمجية التالية إلى معالج الحدث Load للنموذج:
    Dim ctl As ControlDim ctlMDI As MdiClient

    ' Loop through all of the form's controls looking
    ' for the control of type MdiClient.
    For Each ctl In Me.Controls
    Try
    ' Attempt to cast the control to type MdiClient.
    ctlMDI = CType(ctl, MdiClient)

    ' Set the BackColor of the MdiClient control.
    ctlMDI.BackColor = Me.BackColor

    Catch exc As InvalidCastException
    ' Catch and ignore the error if casting failed.
    End Try
    Next

    ' Display a child form to show this is still an MDI application.
    Dim frm As New Form2()
    frm.MdiParent = Me
    frm.Show()

  8. من القائمة مشروع ، انقر فوق إضافة نموذج Windows.
  9. أقبل الاسم الافتراضي Form2.vb، ومن ثم انقر فوق فتح.
  10. اضغط F5 لتشغيل التطبيق.
لاحظ أن يقوم بتحميل نموذج MDI الأصل وخلفية زرقاء فاتحة.

خصائص

رقم الموضوع: 319417 - آخر مراجعة: 19‏/01‏/2017 - المراجعة: 1

Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic 2005

تعليقات