Visual Basic > Code Snippets sample source codes

 Change system colors

Change system colors Private Declare Function SetSysColors Lib "user32" (ByVal nValues As Long, lpSysColor As Long, lpColorValue As Long) As Long Private Const COLOR_SCROLLBAR = 0 Private Const COLOR_BACKGROUND = 1 Private Const COLOR_ACTIVECAPTION = 2 Private Const COLOR_INACTIVECAPTION = 3 Private Const COLOR_MENU = 4 Private Const COLOR_WINDOW = 5 Private Const COLOR_WINDOWFRAME = 6 Private Const COLOR_MENUTEXT = 7 Private Const COLOR_WINDOWTEXT = 8 Private Const COLOR_CAPTIONTEXT = 9 Private Const COLOR_ACTIVEBORDER = 10 Private Const COLOR_INACTIVEBORDER = 11 Private Const COLOR_APPWORKSPACE = 12 Private Const COLOR_HIGHLIGHT = 13 Private Const COLOR_HIGHLIGHTTEXT = 14 Private Const COLOR_BTNFACE = 15 Private Const COLOR_BTNSHADOW = 16 Private Const COLOR_GRAYTEXT = 17 Private Const COLOR_BTNTEXT = 18 Private Const COLOR_INACTIVECAPTIONTEXT = 19 Private Const COLOR_BTNHIGHLIGHT = 20 Private Sub Form_Load() 'you now have ablue desktop ;-) X = SetSysColors(1, COLOR_BACKGROUND, &HFF0F00) End End Sub



Privacy Policy | Link to Us | Links