Funkcija „CallByName“

Važno : Ovaj članak je mašinski preveden, pogledajte odricanje odgovornosti. Pogledajte verziju ovog članka na engleskom jeziku ovde za referencu.

Izvršava metod objekta ili postavlja ili vraća svojstvo na objekat.

Sintaksa

CallByName ( objekat imeprocedure , tippoziva [, argumenti()])

Sintaksa funkcije CallByName ima sledeće argumente:

Argument

Opis

objekat

Obavezno. Varijante (Objekat). Ime objekta na kojoj će biti izvršena funkciju.

imeprocedure

Obavezno. Varijante (Niska). Izraz niske koja sadrži ime svojstva ili metoda objekta.

tippoziva

Obavezno. Konstante. Konstanta tipa vbCallType koji predstavlja tip procedure koja se zove.

argumenti ()

Opcionalno. Varijante (Niz).


Primedbe

Funkcija " CallByName" se koristi da biste dobili ili postavljanje svojstva ili za pozivanje metoda za vreme izvršavanja pomoću imena niske.

U sledećem primeru, prvi red koristi CallByName da postavite pokazivač miša svojstvo okvira za tekst, drugi red vraća vrednost MousePointer svojstva i treći red poziva metod Premeštanje da biste premestili okvir 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. Ako vam je potrebno više informacija o radu sa VBA modulom, izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite jedan ili više termina u polje za pretragu.

Ovaj primer koristi funkciju CallByName za pozivanje metod Premeštanje komandnog dugmeta.

Na primer takođe koristi obrasca (Form1) pomoću dugmeta (Command1) i oznake (Label1). Prilikom učitavanja obrasca, svojstvo natpis oznake postavljeno na ime metoda za pozivanje, u ovom slučaju, "Premesti". Kada kliknete na dugme, funkcija CallByName poziva metod za promenu 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

Napomena : Odricanje odgovornosti za mašinski prevod: Ovaj članak je preveo računarski sistem bez ljudske intervencije. Microsoft nudi ove mašinske prevode da bi pomogao korisnicima koji ne govore engleski da uživaju u sadržaju o Microsoft proizvodima, uslugama i tehnologijama. Budući da je članak mašinski preveden, može da sadrži greške u rečniku, sintaksi ili gramatici.

Unapredite veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×