Izvršava metod objekta ili postavlja ili vraća svojstvo objekat.
Sintaksa
CallByName ( objekat , ime, tip poziva [, args()])
Sintaksa funkcije CallByName ima sledeće argumente:
Argument |
Opis |
objekat |
Obavezno. Varijanta (objekat). Ime objekta na kojem će funkcija biti izvršena. |
procname |
Obavezno. Varijanta (niska). Izraz niske koji sadrži ime svojstva ili metoda objekta. |
tip poziva |
Obavezno. Konstanta. Konstanta tipa vbCallType koja predstavlja tip procedure koja se poziva. |
args () |
Opcionalno. Varijanta (niz). |
Napomene
Funkcija CallByName se koristi za pribavljanje ili postavljanje svojstva ili za pozivanje metoda u vremenu izvršavanja pomoću imena niske.
U sledećem primeru prvi red koristi CallByName za postavljanje svojstva okvira za tekst MousePointer, drugi red dobija vrednost svojstva MousePointer, a treći red poziva metod Move za premeštanje okvira za tekst:
CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet) CallByName Text1, "Move", vbMethod, 100, 100
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju CallByName za pozivanje metoda Premeštanje komandnog dugmeta.
Primer takođe koristi obrazac (Form1) sa dugmetom (Command1) i oznakom (Label1). Kada se obrazac učita, svojstvo natpisa oznake je postavljeno na ime metoda koji treba pozvati, u ovom slučaju "Premesti". Kada kliknete na dugme, funkcija CallByName poziva metod promene lokacije dugmeta.
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