Izvršava metodu objekta ili postavlja ili vraća svojstvo objekt.
Sintaksa
CallByName ( Objekt , procname, calltype [, args()])
Sintaksa funkcije CallByName sadrži sljedeće argumente:
Argument | Opis |
|---|---|
|
objekt |
Obavezno. Variant (Objekt). Naziv objekta na kojem će se funkcija izvršavati. |
|
procname |
Obavezno. Variant (niz). Nizovni izraz koji sadrži naziv svojstva ili načina objekta. |
|
vrste calltype |
Obavezno. Konstanta. Konstanta vrste vbCallType koja predstavlja vrstu postupka koja se zove. |
|
args () |
Dodatno. Variant (polje). |
Napomene
Funkcija CallByName koristi se za dohvaćanje ili postavljanje svojstva ili pozivanje metode u vremenu izvođenja pomoću naziva niza.
U sljedećem primjeru prvi redak koristi CallByName da bi postavio svojstvo MousePointer tekstnog okvira, drugi redak dobiva vrijednost svojstva MousePointer , a treći redak zaziva metodu premještanja za pomicanje tekstnog okvira:
CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru koristi funkcija CallByName za pozivanje na metodu premještanja naredbenog gumba.
U primjeru se koristi i obrazac (Form1) s gumbom (Command1) i naljepnicom (Label1). Kada je obrazac učitan, svojstvo Opis naljepnice postavljeno je na naziv načina za pozivanje, u ovom slučaju "Premjesti". Kada kliknete gumb, funkcija CallByName zaziva metodu za promjenu mjesta gumba.
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
