الدالة CreateObject

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ملاحظة: يتم تعطيل الداله اسلوب الكائن او الخاصيه هو موضح في هذا الموضوع اذا Microsoft Jet Expression Service قيد التشغيل في وضع الحمايه، الذي يمنع تقييم التعبيرات قد تكون غير امنه. ل# مزيد من المعلومات حول وضع الحمايه، ابحث عن "وضع الحمايه" في "تعليمات".

ينشئ و# ارجاع مرجع الي كائن ActiveX.

بناء الجملة

CreateObject ( الفئه servername] )

يحتوي بناء جمله الداله CreateObject علي الوسيطات التاليه:

الوسيطة

الوصف

فئه

مطلوب. متغير (سلسله). اسم التطبيق و# فئه الكائن ل# انشاء.

اسم الخادم

اختياري. متغير (سلسله). اسم خادم شبكه حيث سيتم انشاء الكائن. اذا كان اسم الخادم سلسله فارغه ("")، يتم استخدام الكمبيوتر المحلي.


فئه وسيطة يستخدم بناء الجمله appname.نوع الكائن و# الاجزاء التاليه:

الجزء

الوصف

appname

مطلوب. متغير (سلسله). اسم التطبيق الذي يوفر الكائن.

نوع الكائن

مطلوب. متغير (سلسله). نوع او فئة ل# الكائن ل# انشاء.


ملاحظات

يوفر كل تطبيق يعتمد التنفيذ التلقائي واحد علي الاقل نوع الكائن. علي سبيل المثال، قد توفر تطبيق معالج الكلمات كائن تطبيق و# كائن مستند ، و# كائن شريط الادوات .

ل# انشاء كائن ActiveX، تعيين الكائن ارجاعها ب# واسطه CreateObject الي متغير العنصر:

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في Visual Basic for Applications (VBA) الوحده النمطيه. ل# الحصول علي مزيد من المعلومات حول العمل ب# استخدام VBA، حدد مرجع المطور في القائمه المنسدله الموجود ب# جانب بحث و# ادخل شروط واحد او اكثر في مربع البحث.

' Declare an object variable to hold the object 
' reference. Dim as Object causes late binding.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

تشغيل هذا الرمز تطبيق انشاء الكائن، و# في هذه الحاله، جدول بيانات Microsoft Office Excel 2007. ب# مجرد انشاء كائن، يمكنك الرجوع اليه في التعليمات البرمجيه استخدام متغير الكائن قمت ب# تعريفها. في المثال التالي، يمكنك الوصول الي خصائص و# اساليب ل# الكائن الجديد ب# استخدام متغير الكائن و ExcelSheetو# كائنات اخري Excel، ب# ما في ذلك الكائن Application و# المجموعه Cells .

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

الاعلان عن متغير كائن العباره As Object انشاء متغير يمكن ان تحتوي علي مرجع الي اي نوع من الكائنات. و# مع ذلك، الوصول الي الكائن من خلال هذا المتغير المتاخر المرتبط؛ اي ان يحدث الربط عند تشغيل البرنامج الخاص بك. ل# انشاء متغير كائن الذي ينتج في وقت مبكر ربط، اي ان ربط عند التحويل البرمجي ل# البرنامج، قم ب# تعريف متغير الكائن مع معرف فئه معينه. علي سبيل المثال، يمكنك تعريف و# انشاء مراجع Excel ما يلي:

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

يمكنك تقديم افضل اداء المرجع من خلال متغير المرتبطه ب# شكل مبكر، و# لكن يمكن ان تحتوي علي مرجع الي فئة المحدده في إعلان فقط.

يمكنك تمرير كائن تم ارجاعه ب# واسطه الداله CreateObject ل# داله تتوقع استلام كائن ك# وسيطه. علي سبيل المثال، يقوم ب# انشاء التعليمه البرمجيه التاليه و# تقوم ب# تمرير مرجع الي كائن Excel.Application:

Call MySub (CreateObject("Excel.Application"))

يمكنك انشاء كائن علي كمبيوتر متصل ب# شبكه عن بعد ب# تمرير اسم الكمبيوتر الي الوسيطه servernameCreateObject. اسم هذا هو نفسه "اسم الجهاز" جزء اسم مشاركه: ل# اسم "\\MyServer\Public" مشاركه، هو اسم الخادم "MyServer."

ملاحظة: راجع وثائق COM (راجع Microsoft Developer Network) ل# الحصول علي معلومات اضافيه علي جعل تطبيق مرئيه علي كمبيوتر متصل ب# شبكه عن بعد. قد تحتاج الي اضافه مفتاح تسجيل ل# التطبيق الخاص بك.

التعليمات البرمجيه التاليه ب# ارجاع رقم اصدار مثيل من Excel قيد التشغيل علي كمبيوتر بعيد المسمي MyServer:

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version

اذا كان الخادم البعيد غير موجود او غير متوفر، يحدث خطا وقت التشغيل.

ملاحظة: استخدام CreateObject عند وجود ليس المثيل الحالي ل# الكائن. اذا كان مثيل كائن قيد التشغيل ب# الفعل، يتم بدء تشغيل مثيل جديد، و# يتم انشاء كائن من النوع المحدد. ل# استخدام المثيل الحالي، او ل# بدء تشغيل التطبيق و# تحميل ملف، ف# استخدم الداله GetObject .

اذا سجلت كائن نفسه ك# كائن المثيل الواحد، واحد فقط ل# الكائن يتم انشاء مثيل، ليس عدد المرات التي يتم تنفيذ CreateObject الاهميه.

مثال

يستخدم هذا المثال الداله CreateObject ل# تعيين (المرجع

xlApp

) الي Excel. يستخدم هذا المرجع ل# الوصول الي الخاصيه مرئي من Excel، و# بعد ذلك يستخدم الاسلوب Excel انهاء ل# اغلاقه. و# اخيرا، يتم اصدار المرجع نفسه.

Dim xlApp As Object    ' Declare variable to hold the reference.
Set xlApp = CreateObject("excel.application")
' You may have to set Visible property to True
' if you want to see the application.
xlApp.Visible = True
' Use xlApp to access Microsoft Excel's
' other objects.
xlApp.Quit ' When you finish, use the Quit method to close
Set xlApp = Nothing ' the application, then release the reference.

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

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×