Cara Membuat Label Berwarna Ketika Di Sentuh Mouse Untuk Blog/Website Menggunakan Visual Basic 6.0 Dengan Mudah Gampang dan Cepat..
Bahan :
Visual Basic 6.0 [ Download VB 6 Disini ]
- Buat sebuah form dan 3 buah Label. :)
- Klik View code atau double klik pada form.
- Ketik kode di bawah ini :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.ForeColor = vbBlackKemudian anda coba jalankan dengan cara Klik Run atau F5, dekatkan pointer mouse pada label , warnanya akan berubah :)
Me.Label2.ForeColor = vbBlack
Me.Label3.ForeColor = vbBlack
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.ForeColor = vbRed
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label2.ForeColor = vbWhite
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label3.ForeColor = vbBlue
End Sub
NB: untuk warnanya bisa anda ganti sendiri dengan merubah nama seperti vbBlack di ganti dengan warna yang anda suka…
Sekian dari Saya,
Thanks Udah Mampir..
Semoga Bermanfaat Sobat Master SEO ^_^
Jangan Lupa Tinggalkan Komentar..
Dan Bagikan Artikel ini di Facebook, Twitter, Google+ Anda ya agar terus update.. Terima Kasih..