Iklan

Terima Kasih Anda telah mengunjungi Blog Sederhana ini mudah-mudahan bermanfaat...

Saturday, January 3, 2015

VISUAL BASIC 06 - BOX5 - Membuat Tombol Eksekusi Option dan Label VB6

gimana kabarnya sahabat, mudah-mudahan hari ini kita diberi kesehatan dan tetap tersenyum menyongsong indahnya hari.. baik sahabat yang saya hormati.. pada potingan kali ini saya akan sedikit menulas tetang tombol Option yang bisa kita jadikan sumber eksekusi/ perintah untuk kita berikan perintah, disini hanya salah satu contoh saja untuk kepengembangannya silahkan sahabat kembangkan kembali

baik untuk melakukan praktikum kali ini silahkah buat project seperti dibawah ini


Diatas kita lihat bahwa pada Form1 terdapat Label1 dan Option untuk sebelumnya kita ceritakan dulu alur yang nanti kita buat Codingnya 
"ketika kita mengklik pada Option1 maka label1 akan merubah nama menjadi Warna Biru, bila kita pilih Option2 maka label1= warna kuning,  bila option3 = warna merah

lihat gambar dibawah ini yang sudah ada keterangannya

langkah selanjutnya  lakukan Option yang sudah diberi keterangan  seperti Option1 "Warna Biru" dan  sesuaikan warna pada teks tersebut pada Option lainya kurang lebih lihat gambar dibawah ini

lakukan option lainya seperti gambar diatas sesuaikan warna ..
selanjutnya kita masukan code-codengan dengan cara

Klik Option1 yang tertulis Warna Biru lalu sobat masukan kodenya

Private Sub Option1_Click()
'merubahh Tulisal Label1 menjadi warna biru
Label1.Caption = "Warna Biru"

'merubah warna label1
Label1.ForeColor = &HFF0000  '(kode warna biru)

End Sub


Dobell Klik Option2 yang tertulis Warna Kuning  lalu sobat masukan kodenya

Private Sub Option2_Click()
'merubahh Tulisal Label1 menjadi warna kuning
Label1.Caption = "Warna Kuning"

'merubah warna label1
Label1.ForeColor = &H0000FFFF&  '(kode warna kuning)

End Sub


Dobell Klik Option3 yang tertulis Warna merah  lalu sobat masukan kodenya

Private Sub Option3_Click()
'merubahh Tulisal Label1 menjadi warna merah
Label1.Caption = "Warna Merah"

'merubah warna label1
Label1.ForeColor = &H000000FF& '(kode warna merah)

End Sub


Kurang lebih Seperti ini ketika menjalankan Programnya selamat mencoba.. untuk membutuhkan codenya silahkan sobat download di bawah gambar



__________________________________
Download Contoh Program Jadi Klik Disini.winrar Klik Exe











No comments:

Post a Comment