Membuat Command Button Berubah Warna Ketika Disentuh Mouse [VB 6.0]

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.

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.