Catatan: Kami ingin secepatnya menyediakan konten bantuan terbaru dalam bahasa Anda. Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda di bagian bawah halaman ini? Berikut artikel dalam bahasa Inggris untuk referensi.
Menjalankan metode objek, atau mengatur atau mengembalikan properti objek.
Sintaks
CallByName ( objek procname calltype [, (-) args])
Sintaks fungsi CallByName memiliki argumen ini:
|
Argumen |
Deskripsi |
|
objek |
Diperlukan. Varian (Objek). Nama objek di mana fungsi tersebut akan dijalankan. |
|
procname |
Diperlukan. Varian (String). Ekspresi string yang berisi nama properti atau metode objek. |
|
calltype |
Diperlukan. Konstanta. Konstanta tipe vbCallType menunjukkan tipe prosedur dipanggil. |
|
args () |
Opsional. Varian (Array). |
Keterangan
Fungsi CallByName digunakan untuk mendapatkan atau mengatur properti, atau untuk meminta metode saat menjalankan menggunakan nama string.
Dalam contoh berikut, baris pertama menggunakan CallByName untuk mengatur properti Pointermouse kotak teks, baris kedua mendapatkan nilai properti Pointermouse dan baris ketiga memanggil metode Pindahkan untuk memindahkan kotak teks :
CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi CallByName untuk meminta metode memindahkan tombol perintah.
Contoh juga menggunakan formulir (Form1) dengan tombol (Command1), dan label (Label1). Ketika formulir dimuat, properti label keterangan diatur ke nama metode untuk meminta, dalam kasus ini, "Pindahkan". Saat Anda mengklik tombol, fungsi CallByName memanggil metode untuk mengubah lokasi tombol.
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
