Couleur Userform

[Guillaume]

Comment peut on changer la couleur du bandeau de l'userform et la couleur de sélection dans une listbox car le bleu foncé est pas très joli joli?

Merci d'avance

 

[lio]

Bonjour Guillaume, le forum,

Pour ce qui est du bandeau de l'Usf, tu trouveras dans les archives ton bonheur. Ce sujet a déjà été traité sur le forum ( code qui fait appel à des API je crois, donc assez complexe). Pour ma part ( et si tu as le meme niveau que moi: débutant), je ne te conseille pas trop de jouer avec ce genre de code, ni avec les barres de menus...

Désolé de ne pas t'aider davantage.

Salutations. Lio.

Message édité par: lio, à: 23/01/2006 17:41

 

[lio]

Re,
Ci joint le code que tu recherche ...

Dans le haut d'un module standard :

Declare Function SetSysColors Lib 'user32' (ByVal nChanges _
As Long, lpSysColor As Long, lpColorValues As Long) As Long
Public Const COLOR_ACTIVECAPTION = 2


'Déclaration dans le haut du formulaire de la variable suivante :
Dim OldColor As Long

'-----------------
Private Sub Form_Load()
MaCouleur
End Sub

'-----------------
Private Sub Form_Unload(Cancel As Integer)
SetSysColors 1, COLOR_ACTIVECAPTION, OldColor
End Sub
'-----------------

Sub MaCouleur()
OldColor = GetSysColor(COLOR_ACTIVECAPTION)
SetSysColors 1, COLOR_ACTIVECAPTION, RGB(255, 0, 0)
End Sub
'-----------------

Et si ton formulaire est affiché dans une fenêtre non modale ... ajoute
ceci :
'-----------------
Private Sub UserForm_Deactivate()
SetSysColors 1, COLOR_ACTIVECAPTION, OldColor
End Sub
'-----------------
Private Sub UserForm_Activate()
MaCouleur
End Sub
Denis Michon, (N°1355)

Source: Excelabo.
Salutations.Lio.

Message édité par: lio, à: 23/01/2006 19:06