Funkcija CallByName

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Vykdo objekto metodą ar nustato arba grąžina yra objektas.

Sintaksė

CallByName ( objektą , procname, calltype [, ( args)])

Funkcija CallByName sintaksės argumentai:

Argumentas

Aprašas

objektas

Būtina. Variantas (Objektas). Objekto, kuriame bus vykdoma funkcijos pavadinimas.

procname

Būtina. Variantas (Eilutės). Eilutės išraiška ypatybės pavadinimą arba objekto metodą.

calltype

Būtina. Konstantos. Konstanta su tipo vbCallType , reiškiantis procedūra vadinama tipą.

args ()

Pasirinktinai. Variantas (Masyvas).


Pastabos

Funkcija CallByName naudojama gauti arba nustatyti ypatybę arba naudojant eilutės pavadinimą vykdymo metu iškviesti metodą.

Šiame pavyzdyje, pirmoje eilutėje naudoja CallByName teksto laukelio ypatybę rodyklę , antroje eilutėje reikšmė rodyklę ypatybės, ir trečioje eilutėje nurodo perkelti metodą perkelti 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 funkcija CallByName taikyti perkelti būdas komandos mygtuko.

Formos (Form1) taip pat pavyzdyje mygtuką (Command1) ir etiketės (Label1). Kai forma įkeliama, etiketės ypatybė antraštė metodą iškviesti, pavadinimą nustatyta šiuo atveju "Perkelti". Spustelėjus mygtuką, funkcija CallByName iškviečia metodą, Norėdami pakeisti mygtuko vietą.

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

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×