Pada tutorial kali ini saya akan sedikit membahas bagaimana caranya merubah icon CommandButton, icon berubah ketika kita klik buttonnya. Untuk langkah-langkahnya sebagai berikut:
- Sediakan dua buah file ico dengan ukuran kecil.
- Buka VB6 dan buat sebuah form.
- Masukan 1 buah CommandButton dan atur di properties:
Style : 1 – Graphical
- Simpan terlebih dahulu dalam sebuah folder bersama dengan icon tadi.
- Kemudian masukan sintak berikut di form load:
Private Sub Form_Load()
Me.Command1.Picture = LoadPicture(App.Path & "\tambah.ico")
End Sub
- dan sintak berikut di Command1:
Private Sub Command1_Click()
If Me.Command1.Caption = "&TAMBAH" Then
Me.Command1.Picture = LoadPicture(App.Path & "\simpan.ico")
Me.Command1.Caption = "&SIMPAN"
Else
Me.Command1.Picture = LoadPicture(App.Path & "\tambah.ico")
Me.Command1.Caption = "&TAMBAH"
End If
End Sub
- Kemudian jalankan, ketika kita klik maka icon akan berubah berikut dengan Captionnya.
Sekian tutorialnya, Semoga Bermanfaat.
Pak mau tanya....
ReplyDeleteDi sni saya punya 1 commandbutton dan sya beri nama captionnya Tambah, jika commandbuttonnya diklik maka Caption Tambahnya berubah menjadi caption Batal, nah masalahnya saya mau pasang di 1 commandbutton itu ada 2 icon, icon tambah dan icon batal, tapi dalam 1 commandbutton gtu Pak... mohon bantuannya pak kalo gk keberatan membantu... terima kasih sebelumnya.. salam. :)