CallByName-funktio

Suorittaa objektin menetelmän tai asettaa tai palauttaa objektin ominaisuuden.

Syntaksi

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

CallByName-funktion syntaksilla on seuraavat argumentit:

Argumentti

Kuvaus

object

Pakollinen. Variant (objekti). Sen objektin nimi, jossa funktio suoritetaan.

procname

Pakollinen. Variant (merkkijono). Merkkijonolauseke, joka sisältää ominaisuuden nimen tai objektin menetelmän.

calltype

Pakollinen. Vakio. vbCallType-tyypin vakio, joka edustaa kutsuttavaa menettelytyyppiä.

args ()

Valinnainen. Variant (matriisi).


Huomautuksia

CallByName-funktion avulla saadaan tai määritetään ominaisuus tai käynnistetään menetelmä suorituksen aikana merkkijonon nimen avulla.

Seuraavassa esimerkissä ensimmäinen rivi käyttää CallByName-funktiota tekstiruudun MousePointer-ominaisuuden määrittämiseen, toinen rivi saa MousePointer-ominaisuuden arvon ja kolmas rivi käynnistää Move-menetelmän tekstiruudun siirtämiseksi:

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

Esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä käytetään CallByName-funktiota käynnistämään komentopainikkeen Move-menetelmä.

Esimerkissä käytetään myös lomaketta (Form1) painikkeen (Command1) kanssa, ja otsikkoa (Label1). Kun lomake on ladattu, otsikon Caption-ominaisuudeksi määritetään kutsuttavan menetelmän nimi, tässä tapauksessa ”Move”. Kun painiketta napsautetaan, CallByName-funktio käynnistää menetelmän painikkeen sijainnin muuttamiseksi.

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
Kehitä taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×