الدالة CallByName

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

ينفذ اسلوبا ل# كائن، او تعيين او ارجاع خاصيه عنصر.

بناء الجملة

CallByName ( الكائن ، بروكنامي[ كالتيبي ، ( وسيطات)])

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

الوسيطة

الوصف

كائن

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

بروكنامي

مطلوب. متغير (سلسله). تعبير سلسله التي تحتوي علي اسم خاصيه او اسلوب ل# الكائن.

كالتيبي

مطلوب. ثابت. ثابت من نوع فبكالتيبي يمثل نوع الاجراء قيد الاستدعاء.

وسائط ()

اختياري. متغير (Array).


ملاحظات

يتم استخدام الداله CallByName ل# الحصول علي او تعيين خاصيه، او ل# استدعاء اسلوب في وقت التشغيل ب# استخدام اسم سلسله.

في المثال التالي، يستخدم السطر الاول CallByName ل# تعيين الخاصيه MousePointer مربع نص السطر الثاني و# الحصول علي قيمه خاصيه MousePointer و# السطر الثالث استدعاء اسلوب نقل ل# نقل مربع نص :

CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100

مثال

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

يستخدم هذا المثال الداله CallByName ل# استدعاء طريقه نقل زر امر.

يستخدم المثال ايضا نموذج (Form1) ب# استخدام زر (Command1)، و# تسميه (Label1). عندما يتم تحميل النموذج، الخاصيه تسميه توضيحيه التسميه معين الي اسم الاسلوب ل# استدعاء، في هذه الحاله، "نقل". عندما تنقر فوق الزر، تقوم الداله CallByName استدعاء اسلوب ل# تغيير موقع الزر.

Option Explicit
Private Sub Form_Load()
Label1.Caption = "Move"' Name of Move method.
End Sub
Private Sub Command1_Click()
If Command1.Left <> 0 Then
CallByName Command1, Label1.Caption, vbMethod, 0, 0
Else
CallByName Command1, Label1.Caption, vbMethod, 500, 500
End If
تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

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

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

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

×