SHARE
TWEET

VBA MS Access: Ubah Warna ForeGround & Background Label

stevennathaniel Mar 14th, 2016 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Compare Database
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Private Sub Label6_Click()
  8.  
  9. 'Dim warna1 As Long
  10.  
  11. Dim warna2 As Long
  12.  
  13. 'warna1 = RGB(255, 0, 255)
  14.  
  15. warna2 = RGB(255, 0, 0)
  16.  
  17. 'Label6.SpecialEffect = 2
  18.  
  19. 'Label6.ForeColor = warna1
  20.  
  21. Label6.BackColor = warna2
  22.  
  23.  
  24. End Sub
  25.  
  26. Private Sub Label6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  27.  
  28. Dim warna1 As Long
  29.  
  30. warna1 = RGB(0, 128, 128)
  31.  
  32. 'warna1 = RGB(255, 0, 255)
  33.  
  34. Label6.SpecialEffect = 2
  35.  
  36. Label6.BackColor = warna1
  37.  
  38. End Sub
  39.  
  40.  
  41.  
  42. Private Sub Label6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  43.  
  44. Label6.SpecialEffect = 1
  45.  
  46.  
  47. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top