Cara membuat Label tombol Berganti Warna ketika di sentuh mouse pada bahasa pemograman VB 6.0


Untuk kali ini Saya akan menerangkan tentang bagaimana cara membuat tombol aplikasi berganti warna ketika di sentuh mose pada pemograman VB 6.0 disini saya akan menerangkat untuk warnanya hanya berupa merah, putih sama biru, untuk selanjudnya silahkan ganti dengan warna lain sesuka anda Langsung saja berikut

langkan-langkahnya :

  1. Buat sebuah form dan 3 buah Label.🙂
  2. Klik View code atau double klik pada form.
  3. Ketik kode di bawah ini :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Label1.ForeColor = vbBlack

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

 

      5. Kemudian anda coba jalankan dengan cara Klik Run atau F5, dekatkan pointer mouse pada label ,   warnanya akan berubah🙂

 

NB: untuk warnanya bisa anda ganti sendiri dengan merubah nama seperti vbBlack di ganti dengan warna yang anda suka…

 

************************************Selamat Mencoba***************************************

Leave a comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: