Funkcija CallByName

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

Sintaksa

CallByName ( Objekt , procname, calltype [, args()])

Sintaksa funkcije CallByName sadrži sljedeće argumente:

Argument

Opis

objekt

Obavezno. Variant (Objekt). Naziv objekta na kojem će se funkcija izvršavati.

procname

Obavezno. Variant (niz). Nizovni izraz koji sadrži naziv svojstva ili načina objekta.

vrste calltype

Obavezno. Konstanta. Konstanta vrste vbCallType koja predstavlja vrstu postupka koja se zove.

args ()

Dodatno. Variant (polje).


Napomene

Funkcija CallByName koristi se za dohvaćanje ili postavljanje svojstva ili pozivanje metode u vremenu izvođenja pomoću naziva niza.

U sljedećem primjeru prvi redak koristi CallByName da bi postavio svojstvo MousePointer tekstnog okvira, drugi redak dobiva vrijednost svojstva MousePointer , a treći redak zaziva metodu premještanja za pomicanje tekstnog okvira:

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 na metodu premještanja naredbenog gumba.

U primjeru se koristi i obrazac (Form1) s gumbom (Command1) i naljepnicom (Label1). Kada je obrazac učitan, svojstvo Opis naljepnice postavljeno je na naziv načina za pozivanje, u ovom slučaju "Premjesti". Kada kliknete gumb, funkcija CallByName zaziva metodu za promjenu mjesta gumba.

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

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
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.

×