sebenernya gw masih baru belajar vb, tapi mau coba jawab nih... Contoh kode:
Option Explicit Dim namaMethod As String 'Procedure yg akan di panggil Public Sub P_Satu() 'Keluarkan pesan MsgBox "Sub P_Satu dijalankan", vbOKOnly, "CallByName" End Sub 'Button u/ manggil procedure P_Satu() Private Sub cmdCallProcedure_Click() 'set variabel namaMethod namaMethod = "P_Satu" 'panggil method P_Satu dengan melewatkan nama method sebagai nilai dalam parameter CallByName CallByName Form1, namaMethod, VbMethod End Sub 'Function yg akan di panggil Public Function F_Satu() As String 'Mengembalikan teks sbb F_Satu = "Fungsi 1 dijalankan" End Function 'Button u/ manggil fungsi F_Satu() Private Sub cmdCallFunction_Click() 'set variabel namaMethod namaMethod = "F_Satu" 'panggil method P_Satu dengan melewatkan nama method sebagai nilai dalam parameter CallByName 'kemudian tangkap hasil dari fungsi F_Satu Text1.Text = CallByName(Form1, namaMethod, VbMethod) End Sub -------------------------------------------------------------------- *Ket: CallByName = fungsi utk memanggil method pada suatu objek Sintax-nya : 1. u/ manggil fungsi variabel = CallByName(Object As Object, ProcName As String, CallType As VbCallType, Args() As Variant) 2. u/ manggil prosedur CallByName Object As Object, ProcName As String, CallType As VbCallType, Args() As Variant semoga jawaban gw bisa membantu... Salam, Marhaen --- In [email protected], "acepslht" <[EMAIL PROTECTED]> wrote: > > Mohon pencerahannya kasus berikut ini. > > Bagaimana caranya panggil suatu prosedure melalui nilai yang ada di > variable. > > Misal : > A -> variable/deklarasi variable > B -> prosedure/function > > biasanya dalam untuk panggil prosedure/function pakai > Call B > > Nah bagaimana caranya jika panggilnya dari nilai yang ada di > variable A. > ------------------------------------------------------------- > Private sub test() > Dim A as String > > A="B" > > ' nah untuk pangggil prosedure B tanpa "Call B" tapi menggunakan > ' nilai yang ada di A > ' ....?? > > end sub > > > private sub B() > ..... > end sub > ---------------------------------------------------------------- > > maunya panggil prosedure dengan langsung A tanpa sebut-sebut B > > mohon bantuannya.. > Terima kasih > Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Bagi terjangkit virus lokal, zip virus tersebut dan kirim ke [EMAIL PROTECTED], kami akan membuat removalnya untuk anda. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/indoprog-vb/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
