COLOR CHANGING windows
Color Changing the Windows Components using API
PROGRAM
'-------------------------------------------------------'Components:'No Type Name'1 ComboBox:Combo1'1 LabelBox:Label1'3 HScroll:B,G,R'1 CommandBtn:Command1''''-------------------------------------------------------
'Converion Function to Change Colors declaration
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
'Form Load Event Type Here
Private Sub Form_Load()
'Set value of Scroll Planes
R.Value = 216 B.Value = 186 G.Value = 137 Label1.BackColor = RGB(R.Value, G.Value, B.Value)
'Add Components to ComboBox
'Note : The Items are in CAPS
Combo1.AddItem "SCROLLBAR" Combo1.AddItem "BACKGROUND" Combo1.AddItem "ACTIVECAPTION" Combo1.AddItem "INACTIVECAPTION" Combo1.AddItem "MENU" Combo1.AddItem "WINDOW" Combo1.AddItem "WINDOWFRAME" Combo1.AddItem "MENUTEXT" Combo1.AddItem "WINDOWTEXT" Combo1.AddItem "CAPTIONTEXT" Combo1.AddItem "ACTIVEBORDER" Combo1.AddItem "INACTIVEBORDER" Combo1.AddItem "APPWORKSPACE" Combo1.AddItem "HIGHLIGHT" Combo1.AddItem "HIGHLIGHTTEXT" Combo1.AddItem "BTNFACE" Combo1.AddItem "BTNSHADOW" Combo1.AddItem "GRAYTEXT" Combo1.AddItem "BTNTEXT" Combo1.AddItem "INACTIVECAPTIONTEXT" Combo1.AddItem "BTNHIGHLIGHT"
'ComboBox list index is set to 4
Combo1.ListIndex = 4
End Sub
'Blue Schroll Plane Controls
Private Sub B_Change() Label1.BackColor = RGB(R.Value, G.Value, B.Value) End Sub
'Green Schroll Plane Controls
Private Sub G_Change() Label1.BackColor = RGB(R.Value, G.Value, B.Value) End Sub
'Red Schroll Plane Controls
Private Sub R_Change() Label1.BackColor = RGB(R.Value, G.Value, B.Value) End Sub
'Apply Button Click Event
Private Sub Command1_Click() t& = SetSysColors(1, Combo1.ListIndex, RGB(R.Value, G.Value, B.Value)) End Sub
No comments:
Post a Comment