طريقة لمعالجة UserForm برمجياً

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية185774
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
يسمح نموذج كائن البرمجة في Microsoft Office 97 لـ Windows إنشاء مربع حوار مخصص (UserForm) باستخدام Microsoft Visual Basic للتطبيقات الماكرو.

تحتوي هذه المقالة على نموذج التعليمات البرمجية لـ Visual Basic الذي يقوم بإنشاء تعالج مربع حوار مخصص باستخدام طراز كائن برمجة.
معلومات أخرى
توفر كائنات Visual Basic في Microsoft Office 97 الكائنات والأساليب التي تحتاج إلى الوصول مشاريع Visual Basic والعناصر الخاصة بها. الكائنات ذات المستوى الأعلى التي تتحكم كائنات Visual Basic هو كائن VBE. VBE هو الكائن الجذر الذي يحتوي على كافة الأخرى كائنات ومجموعات تمثيل في Visual Basic for Applications. يمكنك التحكم في الكائن VBE خلال كائن التطبيق. يتضمن كائن VBE مجموعة VBProject والتي تمثل كافة المشاريع المفتوحة في بيئة التطوير.

يحتوي كل المستند أيضاً على كائن VBProject الذي يقع ضمن المستند الخاص به أو كائن مصنف.

يحتوي الكائن VBProject على مجموعة VBComponents. حوار يتم تمثيل مربعات يسمى UserForms ، ككائنات UserForm. UserForm كائنات و الوحدات النمطية التعليمة البرمجية عناصر مجموعة VBComponents.

Microsoft Visual Basic for Applications مكتبة كائنات القابلية للتوسعة

للتعليمات البرمجية Visual Basic التالية في هذه المقالة إلى الدالة ، أولاً تحميل مكتبة كائنات "Microsoft Visual Basic عن تطبيقات للتوسعة" في المشروع. يستخدم هذا المثال Microsoft Excel ولكن الخطوات مشابه لأي من برنامج Microsoft Office. لإضافة مرجع إلى مكتبة "Microsoft Visual Basic عن تطبيقات للتوسعة" إلى المشروع اتبع الخطوات التالية:

  1. بدء تشغيل Microsoft Excel ثم قم بإنشاء مصنف جديد.
  2. اضغط ALT + F11 لفتح محرر Visual Basic.
  3. في حالة عدم ظهور إطار Project انقر فوق Project Explorer من القائمة عرض.
  4. في إطار Project، انقر فوق "VBAProject (Book1)."

    لاحظ أنه قد يختلف اسم المصنف.
  5. من القائمة إدراج انقر فوق وحدة نمطية.

    يضيف هذه الخطوة وحدة نمطية في مشروع Book1.
  6. من القائمة أدوات ، انقر "مراجع".
  7. ضمن "المراجع المتاحة", انقر فوق "Microsoft Visual Basic عن تطبيقات للتوسعة" ثم انقر فوق موافق.
بعد تنفيذ الخطوات التالية يمكنك كتابة التعليمة البرمجية الأساسية Visual التي تظهر في هذه المقالة في وحدة نمطية جديدة ومن ثم تشغيل الماكرو.

للحصول على معلومات إضافية، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
173707OFF97: كيفية تشغيل نموذج تعليمة برمجية من مقالات قاعدة المعارف

الماكرو عدد عدد المكونات Visual Basic

تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية ، ، لا الحصر إلى ضمانات القابلية للتسويق و/أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي تم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن أن يساعد إخصائيي الدعم Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات لتلبية احتياجاتك المحددة.
إذا كان يجب أن يكون لديك خبرة محدودة في مجال البرمجة، قد تحتاج إلى الاتصال بشريك Microsoft أو خدمات النصائح. لمزيد من المعلومات، قم بزيارة مواقع ويب Microsoft هذه:

Microsoft المعتمدين Partners – https://partner.microsoft.com/global/30000104

خدمات Microsoft المستند الذي يقدم النصائح - http://support.microsoft.com/gp/advisoryservice

للحصول على مزيد من المعلومات حول خيارات الدعم المتوفرة وحول كيفية الاتصال بشركة Microsoft قم بزيارة موقع Microsoft التالي على الويب: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSلإرجاع عدد الوحدات النمطية و الوحدات النمطية للفئة و UserForms كافة في المشروع النشط في مربع رسالة اكتب التعليمة البرمجية التالية في الوحدة النمطية جديد:
     Sub Count_VBComponents1()      MsgBox Application.VBE.ActiveVBProject.VBComponents.Count   End Sub				
أو استخدام التعليمات البرمجية التالية:
    Sub Count_VBComponents2()      ' Replace "ActiveWorkbook" with "ActiveDocument" for Microsoft Word      ' or "ActivePresentation" for Microsoft PowerPoint.      MsgBox ActiveWorkbook.VBProject.VBComponents.Count   End Sub				

إنشاء UserForm جديد

لإنشاء UserForm جديد استخدام الأسلوب Add VBComponents مجموعة حدد vbext_ct_MSDForm. على سبيل المثال، اكتب التعليمة البرمجية التالية في الوحدة النمطية جديد:
      Sub Add_Form1()      ' Declare a variable to hold the UserForm.      Dim x As Object      ' Create a new UserForm. You can use this new VBComponent object      ' to manipulate the User Form.          Set x = Application.VBE.ActiveVBProject.VBComponents.Add _          (vbext_ct_MSForm)   End Sub				

تغيير الاسم والخصائص الأخرى من UserForm

لتغيير اسم UserForm تغيير القيمة الخاصة به اسم الخاصية. تغيير أسماء خصائص أخرى (على سبيل المثال، عنوان أو ارتفاع أو عرض) ، تغييرها خلال مجموعة الخصائص VBComponent الكائن. المثال التالي إنشاء UserForm جديدة وتغيير ثم اسم التسمية التوضيحية (النص الذي يظهر في شريط العنوان) ارتفاع و عرض مربع الحوار تم إنشاؤه حديثاً:
  Sub Add_Form2()      ' Declare a variable to hold the UserForm.      Dim mynewform As Object      ' Create a new UserForm. You can now use this new VBComponent object      ' to manipulate the User Form.      Set mynewform = _      Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)      With mynewform         .Properties("Height") = 246         .Properties("Width") = 616         .Name = "HelloWord"         .Properties("Caption") = "This is a test"      End With   End Sub				

إضافة عناصر إلى UserForm

لإضافة عنصر تحكم جديد إلى UserForm أولاً استخدام الكائن مصمم الكائن VBComponent المطابق. كائن مصمم يسمح لك لمعالجة التصميم UserForm. كائن مصمم يحتوي على عناصر مجموعة. لإضافة عنصر تحكم جديد إضافته إلى مجموعة عناصر التحكم. المثال التالي يضيف عنصر تحكم خانة اختيار إلى UserForm تم إنشاؤه حديثاً ويقوم بتعيين اسم التسمية التوضيحية موضع و حجم عنصر التحكم:
   Sub Add_Control()      ' Declare variables.      Dim mynewform As Object      Dim mycheckbox As Object      ' Create a new UserForm. You can use this new VBComponent object      ' to manipulate the UserForm.      Set mynewform = _        Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_MSForm)      ' Add a checkbox to the new UserForm.      Set myCheckBox = mynewform.Designer.Controls.Add("Forms.CheckBox.1")      ' With the new checkbox...      With myCheckBox         .Name = "Check1"         .Caption = "Check here"         .Left = 10         .Top = 10         .Height = 20         .Width = 60      End With   End Sub				
للحصول على معلومات إضافية، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
157319XL97: مشاكل عند استخدام ماكرو لإضافة عنصر التحكم إلى UserForm
مراجع
للحصول على معلومات إضافية حول الحصول على تعليمات Visual Basic for Applications انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
163435VBA: برمجة الموارد Visual Basic للتطبيقات
vba off97 off2003

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 185774 - آخر مراجعة: 12/05/2015 08:40:42 - المراجعة: 4.6

Microsoft Office Excel 2003, Microsoft Excel 97 Standard Edition, Microsoft Word 97 Standard Edition, Microsoft PowerPoint 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto KB185774 KbMtar
تعليقات