Funkcija CallByName

Izpilda objekta metodi vai iestata vai atgriež objekts rekvizītu.

Sintakse

CallByName ( objekts , calltype [, args()])

Funkcijas CallByName sintaksei ir šādi argumenti.

Arguments

Apraksts

objekts

Obligāts. Variant (objekts). Tā objekta nosaukums, kurā tiks izpildīta funkcija.

CNAME

Obligāts. Variant (virkne). Virknes izteiksme, kas satur objekta rekvizīta vai metodes nosaukumu.

calltype

Obligāts. Konstante. Konstants tipa vbCallType , kas attēlo uzaicinājuma procedūras tipu.

args ()

Nav obligāts. Variant (masīvs).


Piebildes

Funkcija CallByName tiek izmantota, lai iegūtu vai iestatītu rekvizītu, vai arī, lai pielietotu metodi izpildlaikā, izmantojot virknes nosaukumu.

Tālāk sniegtajā piemērā pirmajā rindiņā ir izmantota CallByName , lai iestatītu tekstlodziņa rekvizītu MousePointer , otrā rindiņa iegūst rekvizīta MousePointer vērtību un trešā rinda izsauc pārvietošanas metodi, 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ā tiek izmantota funkcija CallByName , lai izsauktu komandpogu pārvietošanas metodi.

Piemērā tiek izmantota arī forma (Form1) ar pogu (Command1) un etiķeti (Label1). Kad veidlapa ir ielādēta, etiķetes rekvizītā Paraksts tiek iestatīts uz tās metodes nosaukumu, ko vēlaties izmantot, šajā gadījumā "Move". Noklikšķinot 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

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office 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 jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×