Vykdo objekto metodą, nustato arba pateikia objektas ypatybę.
Sintaksė
CallByName ( objektas , procname, calltype [, args()])
Funkcijos CallByName sintaksė turi tokius argumentus:
|
Argumentas |
Aprašas |
|
objektas |
Būtinas. Variantas (objektas). Objekto, kuriame bus vykdoma funkcija, pavadinimas. |
|
procname |
Būtinas. Variantas (eilutė). Eilutės reiškinys, kuriame yra objekto ypatybės arba metodo pavadinimas. |
|
skambučio tipas |
Būtinas. Konstanta. VbCallType tipo konstanta, nurodanti iškviečiamos procedūros tipą. |
|
args () |
Pasirinktinis. Variantas (masyvas). |
Pastabos
Funkcija CallByName naudojama ypatybei gauti arba nustatyti arba metodui paleisti vykdymo metu naudojant eilutės pavadinimą.
Toliau pateiktame pavyzdyje pirmoje eilutėje naudojama CallByName teksto lauko ypatybei "MousePointer" nustatyti, antroji eilutė gauna "MousePointer" ypatybės reikšmę, o trečioji eilutė iškviečia metodą Perkelti , kad perkeltų teksto lauką:
CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100
Pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje naudojama funkcija CallByName , kad iškviestų komandos mygtuko metodą Move .
Pavyzdyje taip pat naudojama forma (Form1) su mygtuku (Command1) ir žyma (Label1). Įkėlus formą, etiketės ypatybė Antraštė nustatoma kaip iškviečiamo metodo pavadinimas, šiuo atveju "Perkelti". Spustelėjus mygtuką, funkcija CallByName iškviečia mygtuko vietos keitimo metodą.
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
