Cara membuat effect hover pada Command button vb

vbphotoshop.blogspot.com

Assalamu'alaikum Wr Wb.

Kembali lagi di blog saya, vbphotoshop.blogspot.com. Kali ini saya masih akan membagikan tutorial tentang vb6. Yaitu cara memberikan effect pada Command button pada saat dihampiri mouse. Membuat effect mouse di vb6 tidak semudah di delphi, karena pada delphi terdapat onMouseOver. Atau tidak semudah pada html dan css yang hanya tinggal menggunakan hover. Sedangkan di  vb6 tidak ada. Tapi ada cara untuk mengakali hal tersebut. berikut langkahnya. Saya akan membuat effect Command button menjadi warna merah pada saat di hampiri mouse, dan menjadi warna semula pada saat tidak dihampiri mouse. Oke, langsung saja ikuti tutorialnya.

1. Buka program aplikasi vb yang ingin diberi effect tersebut

2. Ketik atau copy paste code ini di windows code program sobat

Private OrigColor As Long

Private Sub Form_Load()
OrigColor = Command1.BackColor
End Sub

3. Pilih command yang ingin di beri effect, contohnya saya gunakan Command1. Klik dua kali pada  Command1 lalu pilih event MouseMove. Dan ketik atau CoPas kode berikut

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, _X As Single, Y As Single)
Command1.BackColor = vbRed
End Sub

"Setelah kode tersebut dimasukan warna Command1 akan merubah saat di hampiri mouse, tapi warnanya tidak berubah lagi saat tidak dihampiri mouse. Untuk itu mari berlanjut ke langkah berikutnya"

4. Klik dua kali pada form, dan pilih event MouseMove. Ketik atau CoPas code di bawah ini

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _Y As Single)
Command1.Font.Size = OrigSize
End Sub

Udah deh, selamat mecoba