Discussion :

[Superpat9999]

Bonjour,
Est-il possible de colorer la barre de légende (Caption) où il y a la croix de fermeture ?
Merci de votre aide

[volsan]

Bonjour,

Tu peux t'inspirer de ce vieux post :
https://www.developpez.net/forums/d5...r-bandeau-frm/

[Superpat9999]

Merci Volsan, j'ai changé la couleur du texte, maintenant pour la barre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'Texte dans la barre de caption
Const COLOR_CAPTIONTEXT = 9
 
Private Declare Function GetSysColor Lib "user32" _
    (ByVal nIndex As Long) As Long
 
Private Declare Function SetSysColors Lib "user32" _
    (ByVal nChanges As Long, lpSysColor As Long, _
    lpColorValues As Long) As Long
 
Dim EnrCouleur As Long
 
Private Sub Form_Close()
'Réinitialise la couleur
    SetSysColors 1, COLOR_CAPTIONTEXT, EnrCouleur
End Sub
 
Private Sub Form_Open(Cancel As Integer)
'Modifie la couleur du texte lors de l'affichage du UserForm
    Me.Caption = "Choix Catégorie"
    'Memorise la couleur initiale
    EnrCouleur = GetSysColor(COLOR_CAPTIONTEXT)
    'Modifie la couleur
    SetSysColors 1, COLOR_CAPTIONTEXT, RGB(255, 0, 0)
    'SetSysColors 1, COLOR_CAPTIONTEXT, RGB(0, 0, 255)
End Sub

[tee_grandbois]

bonsoir,
à priori d'après cette page :https://docs.microsoft.com/en-us/win...er-getsyscolor

COLOR_MENUBAR = 30

[Superpat9999]

bonsoir,
à priori d'après cette page :https://docs.microsoft.com/en-us/win...er-getsyscolor

COLOR_MENUBAR = 30

Merci tee_grandbois, mais cela ne fonctionne pas : Windows 2000: This value is not supported.

[tee_grandbois]

bonjour,

Windows 2000: This value is not supported.

j'avais compris le contraire que ce n'était pas supporté pour Windows 2000.
Reste à essayer les autres valeurs concernant MENU ou WINDOW ...
Mise à part la liste des valeurs, je n'ai pas trouvé beaucoup d'infos concernant les couleurs système.

[Superpat9999]

Merci tee_grandbois, j'ai essayé divers options, mais cela ne semble pas fonctionner.
Tant pis, c'était pour essayer...
Bonne journée