تنفيذ أسلوب عنصر، أو تعيين خاصية عنصر أو إرجاعها .
بناء الجملة
CallByName ( object , procname, calltype [, args()])
يحتوي بناء جملة الدالة CallByName على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
عنصر |
مطلوبة. متغير (كائن). اسم الكائن الذي سيتم تنفيذ الدالة عليه. |
|
اسم procname |
مطلوبة. متغير (سلسلة). تعبير سلسلة يحتوي على اسم خاصية أو أسلوب للعنصر. |
|
نوع الاتصال |
مطلوبة. ثابت. ثابت من نوع vbCallType يمثل نوع الإجراء الذي يتم استدعاؤه. |
|
args () |
اختيارية. متغير (صفيف). |
ملاحظات
يتم استخدام الدالة CallByName للحصول على خاصية أو تعيينها، أو لاستدعاء أسلوب في وقت التشغيل باستخدام اسم سلسلة.
في المثال التالي، يستخدم السطر الأول CallByName لتعيين الخاصية MousePointer لمربع نص، ويحصل السطر الثاني على قيمة الخاصية MousePointer ، ويستدعي السطر الثالث الأسلوب Move لنقل مربع النص:
CallByName Text1, "MousePointer", vbLet, vbCrosshairResult = CallByName (Text1, "MousePointer", vbGet)CallByName Text1, "Move", vbMethod, 100, 100
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة CallByName لاستدعاء أسلوب النقل لزر أمر.
يستخدم المثال أيضا نموذجا (Form1) مع زر (Command1)، وتسمية (Label1). عند تحميل النموذج، يتم تعيين خاصية التسمية التوضيحية للتسمية إلى اسم الأسلوب المراد استدعاؤه، في هذه الحالة، "نقل". عند النقر فوق الزر، تستدعي الدالة CallByName الأسلوب لتغيير موقع الزر.
Option ExplicitPrivate Sub Form_Load() Label1.Caption = "Move"' Name of Move method.End SubPrivate Sub Command1_Click()If Command1.Left <> 0 Then CallByName Command1, Label1.Caption, vbMethod, 0, 0Else CallByName Command1, Label1.Caption, vbMethod, 500, 500End If
