Funkcija CallByName

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Izvršava metodu objekta te postavlja ili vraća svojstvo objekt.

Sintaksa

CallByName ( objekta , procname, calltype [, argumente()])

Sintaksa funkcije CallByName sadrži sljedeće argumente:

Argument

Opis

objekt

Obavezan. Variant (Objekt). Naziv objekta na kojem će se izvršavati funkciju.

procname

Obavezan. Variant (Niz). Nizovni izraz koji sadrži naziv svojstva ili metode objekta.

calltype

Obavezan. Konstante. Konstanta vrste vbCallType koji označava vrstu procedure koja se poziva.

argumente ()

Neobavezno. Variant (Polja).


Napomene

Funkcija CallByName koristi da biste dobili ili postavljanje svojstva ili pozivanje metode prilikom izvođenja korištenjem naziva niza.

U sljedećem primjeru u prvom retku koristi CallByName da biste postavili MousePointer svojstvo tekstnog okvira, u drugom retku dohvaća vrijednosti svojstva MousePointer i trećeg retka poziva metodu Premještanje da biste premjestili tekstni okvir:

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 metode Premještanje naredbenog gumba.

Primjer također koristi obrazac (Form1) s gumbom (Command1) i natpis (Label1). Prilikom učitavanja obrasca, svojstvo Opis natpisa postavljen na naziv metode koja se poziva, u ovom slučaju, "Premjesti". Kada kliknete gumb, funkcija CallByName poziva način da biste promijenili mjesto gumb.

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 : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×