'La dichiarazione per questa funzione API e':
Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long 'Le costanti sono: Public Const COLOR_SCROLLBAR = 0 'Il colore della barra di scorrimento Public Const COLOR_BACKGROUND = 1 'Il colore dello sfondo senza wallpaper Public Const COLOR_ACTIVECAPTION = 2 'Intestazione della finestra attiva Public Const COLOR_INACTIVECAPTION = 3 'Intestazione della finestra inattiva Public Const COLOR_MENU = 4 'Menu Public Const COLOR_WINDOW = 5 'Sfondo della finestra Public Const COLOR_WINDOWFRAME = 6 'Struttura della finestra Public Const COLOR_MENUTEXT = 7 'Testo della finestra Public Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95) Public Const COLOR_CAPTIONTEXT = 9 'Testo nell'intestazione della finestra Public Const COLOR_ACTIVEBORDER = 10 'Bordo della finestra attiva Public Const COLOR_INACTIVEBORDER = 11 'Bordo della finestra inattiva Public Const COLOR_APPWORKSPACE = 12 'Sfondo del MDI desktop Public Const COLOR_HIGHLIGHT = 13 'Sfondo dell'item selezionato Public Const COLOR_HIGHLIGHTTEXT = 14 'Menu item selezionato Public Const COLOR_BTNFACE = 15 'Pulsante Public Const COLOR_BTNSHADOW = 16 '3D dissolvenza del pulsante Public Const COLOR_GRAYTEXT = 17 'Testo grigio, dello zero se il dithering e' usato. Public Const COLOR_BTNTEXT = 18 'Testo del pulsante Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Testo della finestra inattiva Public Const COLOR_BTNHIGHLIGHT = 20 '3D riflesso del pulsante 'Per cambiare il colore della barra del titolo, o 'dell'intestazione, o della finestra attiva, dovete chiamare la 'funzione in questo modo: t& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255,0,0)) 'Questo esempio fara' diventare l'intestazione attiva di colore 'rosso. |