Ubah Caption Tombol Jika Diklik di VB 6

       Misalnya mengubah caption tombol dengan nama 'btnAdd', caranya:

•            Klik 2 kali tombol btnAdd
•            isi kode seperti dibawah ini:
  

Private Sub btnAdd_Click()    

 

If btnAdd.Caption = "Add" Then

     call tambah;

     btnAdd.Caption = "Save"   'mengubah caption "add" menjadi ''save"

Else  

     btnAdd.Caption = "Add"    'jika caption 'save' pas diklik akan diubah menjadi "add"

End Sub

yupz,,,demikian contoh mengubah caption tombol di event click.

Posted in: vb