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…

ConstantValue.NET Framework equivalent
vbBlack&h00Black
vbRed&hFFRed
vbGreen&hFF00Green
vbYellow&hFFFFYellow
vbBlue&hFF0000Blue
vbMagenta&hFF00FFMagenta
vbCyan&hFFFF00Cyan
vbWhite&hFFFFFFWhite
vbScrollBars&H80000000ScrollBar
vbDesktop&H80000001Desktop
vbActiveTitleBar&H80000002ActiveCaption
vbInactiveTitleBar&H80000003InactiveCaption
vbMenuBar&H80000004Menu
vbWindowBackground&H80000005Window
vbWindowFrame&H80000006WindowFrame
vbMenuText&H80000007MenuText
vbWindowText&H80000008WindowText
vbTitleBarText&H80000009ActiveCaptionText
vbActiveBorder&H8000000AActiveBorder
vbInactiveBorder&H8000000BInactiveBorder
vbApplicationWorkspace&H8000000CP:System.Drawing.SystemColors.AppWorkSpace
vbHighlight&H8000000DHighlight
vbHighlightText&H8000000EHighlightText
vbButtonFace&H8000000FButtonFace
vbButtonShadow&H80000010ControlDark
vbGrayText&H80000011GrayText
vbButtonText&H80000012ControlText
vbInactiveCaptionText&H80000013InactiveCaptionText
vb3DHighlight&H80000014ControlLightLight
vb3DDKShadow&H80000015ControlDarkDark
vb3DLight&H80000016ControlLight
vb3DFace&H8000000FControlDark
vb3Dshadow&H80000010ControlDarkDark
vbInfoText&H80000017InfoText
vbInfoBackground&H80000018Info



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

Komentar

Postingan populer dari blog ini

Login, Session, dan Logout

Cara Membuat File Setup / Installer Aplikasi Sendiri dengan Inno Setup Compiler