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
