CallByName İşlevi

Uygulandığı Öğe
Microsoft 365 için Access Access 2024 Access 2021 Access 2019 Access 2016

Bir nesnenin yöntemini yürütür veya bir nesnenin özelliğini ayarlar veya döndürür.

Söz dizimi

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

CallByName işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:

Bağımsız değişken Açıklama
nesne Gerekli. Variant (Nesne). İşlevin yürütüleceği nesnenin adı.
procname Gerekli. Değişken (dize). Nesnenin bir özelliğinin veya yönteminin adını içeren dize ifadesi.
çağrı türü Gerekli. Sabit. Çağrılan yordamın türünü temsil eden vbCallType türünde bir sabit.
args() İsteğe bağlı. Değişken (Dizi).

    

Açıklamalar

CallByName işlevi, bir özelliği almak veya ayarlamak ya da bir dize adı kullanarak çalışma zamanında bir yöntemi çağırmak için kullanılır.

Aşağıdaki örnekte, ilk satır bir metin kutusunun MousePointer özelliğini ayarlamak için CallByName kullanır, ikinci satır MousePointer özelliğinin değerini alır ve üçüncü satır metin kutusunu taşımak için Move yöntemini çağırır:

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

Örnek

Not

Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.

Bu örnek, bir komut düğmesinin Move yöntemini çağırmak için CallByName işlevini kullanır.

Örnekte ayrıca düğmeli () bir form (Form1Command1) ve bir etiket (Label1) kullanılır. Form yüklendiğinde, etiketin Caption özelliği, çağrılacak yöntemin adına (bu örnekte "Move") ayarlanır. Düğmeye tıkladığınızda, CallByName işlevi düğmenin konumunu değiştirme yöntemini çağırır.

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