Izvršava metod objekta ili postavlja ili vraća svojstvo objekta.
Sintaksa
CallByName(objekat , procname, calltype [, 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