הפונקציה CallByName

הערה: אנו מעוניינים לספק לך את תוכן העזרה העדכני ביותר במהירות האפשרית, בשפה שלך. דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. האם תוכל לספר לנו אם המידע הועיל לך, בחלק התחתון של דף זה? לנוחותך, הנה המאמר באנגלית.

מפעילה פעולת שירות של אובייקט, או הגדרה או החזרת מאפיין של אובייקט.

תחביר

CallByName ( אובייקט , procname, calltype [, () של ארגומנטים])

תחביר הפונקציה CallByName כולל את הארגומנטים הבאים:

ארגומנט

תיאור

אובייקט

נדרש. משתנה (אובייקט). שם האובייקט שבו תופעל הפונקציה.

procname

נדרש. משתנה (מחרוזת). ביטוי מחרוזת המכיל את שם מאפיין או פעולת השירות של האובייקט.

calltype

נדרש. קבוע. קבוע של סוג vbCallType המייצגת את הסוג של הליך מתבצעת קריאה.

ארגומנטים ()

אופציונלי. משתנה (Array).


הערות

הפונקציה 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). כאשר הטופס נטען, המאפיין Caption של התווית מוגדר כשם פעולת השירות כדי להחיל, במקרה זה, 'העבר'. בעת לחיצה על הלחצן, הפונקציה 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.

×