Fungsi CallByName

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

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

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×