MODIFIE LES COULEURS DE LA BARRE CAPTION D'UNE FEUILLE FORM

' Form

Public Couleur As Long
Private Sub Command1_Click()
Unload Me
End Sub
'***(c)1998 Deleau Jean-Marie


Private Sub Form_Load()
Vscroll(2) = 128
ChangerCouleur RGB(0, 0, 128)
End Sub

Private Sub Vscroll_Change(Index As Integer)
Couleur = RGB(Vscroll(0), Vscroll(1), Vscroll(2))
ChangerCouleur Couleur
End Sub


' Module

Declare Function SetSysColors Lib "user32" (ByVal nChg As Long, lpSysCol As Long, lpColVal As Long) As Long
Public Const COLOR_ACTIVECAPTION = 2


Public Sub ChangerCouleur(Col&)
r = SetSysColors(1, COLOR_ACTIVECAPTION, Col&)
End Sub


 

Télécharger le zip