ACC: CreateControl بإنشاء حاوية فارغة للحصول على عناصر تحكم OLE

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

147134
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الأعراض
متقدمة: يتطلب ترميز الخبير إمكانية التشغيل المتداخل و مهارات متعددة المستخدمين.

عند استخدام دالة CreateControl() إلى إنشاء عنصر تحكم OLE بشكل مبرمج يتم إنشاء حاوية فارغة فقط.
السبب
لا يضيف الدالة CreateControl() بيانات OLE المطلوبة لجعل عنصر التحكم الوظيفية. يحدث هذا إذا كان الإجراء بتعيين خصائص فئة أو OLEClass عنصر التحكم.
الحل
لإنشاء عنصر تحكم OLE في وقت التشغيل يجب أولاً إنشاء نموذج "قالب" الذي يحتوي على كافة عناصر التحكم OLE التي يحتاج إليها الإجراء الخاص بك لإنشاء في وقت التشغيل. بعد ذلك، يجب أن الإجراء بتعيين خاصية OLEData عنصر التحكم المخصص الجديد إلى الخاصية OLEData عنصر تحكم OLE في نموذج "قالب".

إنشاء نموذج باستخدام كافة عناصر تحكم OLE التي تخطط لإجراء لإنشاء في وقت التشغيل. يجب أن الإجراء تعيين الخاصية OLEData عنصر تحكم OLE جديدة إلى الخاصية OLEData عنصر التحكم الملائم في قالب النموذج. توضح الخطوات التالية كيفية القيام بذلك مع عنصر تحكم التقويم المضمنة مع Microsoft Access.

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

  1. افتح نموذج قاعدة البيانات Northwind.mdb.
  2. إنشاء نموذج فارغ جديد يسمى قالب.
  3. إدراج عنصر تحكم تقويم ثم اسم التقويم.
  4. إنشاء وحدة نمطية ثم اكتب السطر التالي في مقطع Declarations إذا لم تكن هناك:
    الخيار Explicit
  5. اكتب الإجراء التالي:
          Sub CreateCalendar()         Dim frm As Form         Dim ctl As Control         DoCmd.OpenForm "Template", acDesign , , , , acHidden         Set frm = CreateForm()         Set ctl = CreateControl(frm.Name, acCustomControl, acDetail)         ctl.OLEData = Forms!Template!Calendar.OLEData         DoCmd.Restore         DoCmd.Close acForm, "Template"      End Sub						
  6. لاختبار هذه الدالة اكتب السطر التالي في إطار التصحيح ثم اضغط مفتاح الإدخال ENTER:
    CreateCalendar
    لاحظ إنشاء نموذج جديد مع عنصر تحكم تقويم.
معلومات أخرى

خطوات إعادة إنشاء السلوك

  1. افتح نموذج قاعدة البيانات Northwind.mdb.
  2. إنشاء وحدة نمطية ثم اكتب السطر التالي في مقطع Declarations إذا لم تكن هناك:
    الخيار Explicit
  3. اكتب الإجراء التالي:
          Sub CreateCalendar()         Dim frm As Form         Dim ctl As Control         Set frm = CreateForm()         Set ctl = CreateControl(frm.Name, acCustomControl, acDetail)         ctl.Class = "MSACAL.MSACALCtrl.7"         ctl.OLEClass = "Calendar Control"      End Sub						
  4. لاختبار هذه الدالة اكتب السطر التالي في إطار التصحيح ثم اضغط مفتاح الإدخال ENTER:
    CreateCalendar
    لاحظ إنشاء نموذج جديد مع حاوية عنصر تحكم OLE فارغة على الرغم من أن الإجراء تعيين خصائص الفئة و OLEClass.
مراجع
للحصول على مزيد من المعلومات حول دالة CreateControl() البحث "فهرس التعليمات" عن دالة CreateControl أو اطلب مساعد Office الخاص بـ Microsoft Access 97.

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

خصائص

رقم الموضوع: 147134 - آخر مراجعة: 02/04/2014 17:47:23 - المراجعة: 3.3

  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
  • kbnosurvey kbarchive kbmt kbprb kbprogramming KB147134 KbMtar
تعليقات