ביצוע פעולת שירות של אובייקט, או הגדרה או החזרה של מאפיין של אובייקט.
תחביר
CallByName ( object , procname, calltype [, args()])
תחביר הפונקציה CallByName מכיל את הארגומנטים הבאים:
ארגומנט |
תיאור |
אובייקט |
נדרש. משתנה (אובייקט). שם האובייקט שבו הפונקציה תבוצעו. |
שם מחלקה |
נדרש. משתנה (מחרוזת). ביטוי מחרוזת המכיל את השם של מאפיין או פעולת שירות של האובייקט. |
סוג שיחה |
נדרש. קבוע . קבוע מסוג 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 כדי להפעיל את פעולת השירות Move של לחצן פקודה.
הדוגמה משתמשת גם בטופס (Form1) עם לחצן (Command1) ותווית (Label1). כאשר הטופס נטען, המאפיין כיתוב של התווית מוגדר לשם פעולת השירות כדי להפעיל, במקרה זה, "Move". בעת לחיצה על הלחצן, הפונקציה 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