Funkcija CallByName

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Izpilda metodi objektu, vai iestata vai atgriež objektsrekvizīts.

Sintakse

CallByName ( objekta , procname, calltype [, args()] /)

CallByName sintaksē ir šādi argumenti:

Arguments

Apraksts

objektu

Obligāts. Varianta (Objekts). Objekta, kurā tiks izpildīts funkcijas nosaukums.

procname

Obligāts. Varianta (Virknes). Virknes izteiksme, kas satur rekvizīta nosaukumu vai objekta metodi.

calltype

Obligāts. Konstantes. Konstantes tipu vbCallType procedūru, ko sauc par veidam.

args ()

Pēc izvēles. Varianta (Masīvs).


Piezīmes

Funkcija CallByName izmanto, lai iegūtu vai iestatīt rekvizītu, vai izsaukt metodi palaišanas laikā, izmantojot virkni nosaukumu.

Šajā piemērā pirmajā rindā izmanto CallByName tekstlodziņa MousePointer rekvizīta iestatīšana, otrajā rindā tiek MousePointer rekvizīta vērtību un trešajā rindā atsaucas uz Pārvietot metodes, lai pārvietotu tekstlodziņu:

CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100

Piemērs.

Piezīme : Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā izmantota funkcija CallByName izsaukt komandpogu pārvietošana metodi.

Piemērā tiek arī izmantota forma (Form1) ar pogu (Command1) un etiķeti (Label1). Ielādējot formas rekvizīts Caption etiķetes ir iestatīts uz metodes izsaukt, nosaukums šajā gadījumā "Pārvietot". Kad noklikšķināt uz pogas, funkcija CallByName izsauc metodi, lai mainītu pogas atrašanās vietu.

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

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×