Nah kita ketemu lagi dimodul ini...., disini sekarang kita membahas tentang bagaimana caranya membikin command button ketika di klik gambarnya, gambarnnya menjadi ganti.......
Nah sebenernya ini adalah modul yang paling dikit diketiknnya hehehehehehehe....:), masalahnnya waktu........., untuk membuat form ini seperti biasa bikin form seperti disamping.......,sudah? kalau sudah seperti biasa masukan coding yang di bawah ini di command buttonnya............ :
Private Sub Command1_Click()
Command1.Picture = LoadPicture("D:\Buku VB\Buku 4\iconsComputer\004.ico")
Command1.Caption = "Simpan"
End Sub
Ganti directorynya sama directory gambar/icon kamu......,
Coba run dan lihatlah hasilnya......, kalau orang yang kreatif pasti modul ini sangat berharga.........., (walaupun simpel), karena dengan dikembangkan ini sangat berguna sekali....
Terima Kasih telah membaca modul ini, seperti biasa salam perpisahannya adalah:
Sampai Jumpa Lagi Di Modul Berikutnya....
Selamat Mencoba...
Hidup Programmer!!!!!!!!!!
0 komentar:
Posting Komentar