Salt la conținutul principal
Asistență
Conectare

Funcția CallByName

Execută o metodă a unui obiect sau setează sau returnează o proprietate a unui obiect.

Sintaxă

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

Sintaxa funcției CallByName are următoarele argumente:

Argument

Descriere

obiect

Obligatoriu. Variant (obiect). Numele obiectului pe care va fi executat funcția.

procname

Obligatoriu. Variant (șir). O expresie șir care conține numele unei proprietăți sau a unei metode a obiectului.

calltype

Obligatoriu. Constantă. O constantă de tip vbCallType reprezentând tipul de procedură denumit.

args ()

Opțional. Variant (matrice).


Observații

Funcția CallByName este utilizată pentru a obține sau a seta o proprietate sau pentru a invoca o metodă în timpul execuției utilizând un nume șir.

În exemplul următor, prima linie utilizează CallByName pentru a seta proprietatea MousePointer a unei casete text, a doua linie primește valoarea proprietății MousePointer , iar a treia linie invocă metoda de Mutare pentru a muta caseta text:

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

Exemplu

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția CallByName pentru a invoca metoda de Mutare a unui buton de comandă.

Exemplul utilizează, de asemenea, un formular (Form1) cu un buton (Command1) și o etichetă (Label1). Atunci când formularul este încărcat, proprietatea Caption a etichetei este setată la numele metodei pentru a invoca, în acest caz, "mutare". Atunci când faceți clic pe buton, funcția CallByName invocă metoda de modificare a locației butonului.

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

Aveți nevoie de ajutor suplimentar?

Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×