Hi sobat bloger ,, kali ini saya akan berikan tutorial membuat CommandButton VB berubah warna ketika di sentuh mouse. Tapi maaf jika artikelnya kurang bagus maklum anak baru di dunia blog.
Baiklah langsung saja ke tutorialnya, silahkan ikuti langkah-langkah berikut
1. Jalankan
program visual basic 6.0 dengan form Standar EXE Setelah itu pilih dan klik
CommandButton lalu buat Command di Form
2. Pada
Properties – Command1 ubah style dari 0-standard menjadi 1- Grahphical
3. Ubah
warna command di Propertis-Command1 dengan cara mengklik pada kotak BackColor
kemudian pilih Pallate yang memiliki banyak pilihan warna setelah itu pilih
warna sesuai dengan yang di inginkan, untuk contoh saya mengambil warna merah
4. Masukan kode di bawah ini
Private Sub
Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Command1.BackColor
= &HFF00&
End Sub
Private Sub
Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor
= &HFF&
End Sub
Untuk contoh kali ini warna tombol akan berubah
menjadi hijau ketika mouse di arahkan ke tombol (command) dan akan berwarna merah jika mouse di arahkan keluar commad atau di arahkan ke form.
Anda dapat
merubah sesuai dengan warna yang di inginkan dengan cara mengcopy kode warna
yang ada BlackColor pada kotak Propertis-Command setelah itu paste di kode anda yang
bertuliskan Command1.BackColor. contoh
Command1.BackColor = kode warna yang di inginkan.
Selain code warna yang dipakai di rumus di atas anda juga bisa menggunakan kode warna seperti :
vbRed, vbGreen, vbBlue, vbWhite, dan lain-lain.
Selain code warna yang dipakai di rumus di atas anda juga bisa menggunakan kode warna seperti :
vbRed, vbGreen, vbBlue, vbWhite, dan lain-lain.
Kode warna pada Private Sub Command1_MouseMove untuk merubah warna command
sesuai kode warna yang di inginkan ketika mouse di arahkan ke command sedangkan
kode warna pada Private Sub Form_MouseMove untuk merubah warna ketika warna di
arahkan ke form atau di luar command.
5 comments:
Terimkasih banyak sangat membantu. Sukses selalu. JLOU
run time error 424
Thank you❣️
Membuat Coman baton yg muncul di beberapa form gmn gan
Post a Comment
Komen anda adalah motivasi buat saya