تنفيذ أسلوب لعنصر، أو تعيين خاصية لعنصر أو إرجاعها.
بناء الجملة
CallByName(object , procname, calltype [, args()])
يحتوي بناء جملة الدالة CallByName على هذه الوسيطات:
| الوسيطة | الوصف |
|---|---|
| عنصر | مطلوبة. متغير (كائن). اسم الكائن الذي سيتم تنفيذ الدالة عليه. |
| اسم procname | مطلوبة. متغير (سلسلة). تعبير سلسلة يحتوي على اسم خاصية أو أسلوب للعنصر. |
| نوع الاتصال | مطلوبة. ثابت. ثابت من نوع vbCallType يمثل نوع الإجراء الذي يتم استدعاؤه. |
| args() | اختيارية. متغير (صفيف). |
ملاحظات
يتم استخدام الدالة CallByName للحصول على خاصية أو تعيينها، أو لاستدعاء أسلوب في وقت التشغيل باستخدام اسم سلسلة.
في المثال التالي، يستخدم السطر الأول CallByName لتعيين الخاصية MousePointer لمربع نص، ويحصل السطر الثاني على قيمة الخاصية MousePointer ، ويستدعي السطر الثالث الأسلوب Move لنقل مربع النص:
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