Discussion :

[rogger]

bonjour,
J'ai passé 4 heures ce matin à essayer de changer la couleur de la bodure d'un formulaire -> JE N'Y ARRIVE PAS
Je parle de la bordure du formulaire (celle qui prend la couleur du theme de windows)
Donc ma question est la suivante :
est-ce qu'on peut interdire au formulaire d'heriter du theme windows. Et lui affecter une autre couleur ?
si oui comment faire ?
merci d'avance

[rogger]

Personne n'a de solution ? ou c'est tellement simple que personne ne veux repondre ?

[Tofalu]

Quelle bordure ? Je ne vois pas de quoi tu parles

Si c'est la bordure de la fenêtre, à priori c'est pas possible, c'est géré par windows

[rogger]

je parlais effectivement de la bordure de la fenêtre

merci quand même

[Invité]

Salut,

Une autre solution est la suivante :
1 - Met le style de la fenêtre sans bordure
2 - Choisi la couleur du fond

Code :

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

1
2
 
Me.détail.backcolor = rgb(200,200,220)

3 - Met un contrôle rectangle sur ton formulaire, agrandi et centre le, en laissant une petite marge pour voir le fond
4 - Met une autre couleur à ce rectangle, et met le en 3D enfoncé

As toi de jouer sur les couelurs
Inconvénient :

1 - Met un label pour ton titre
2 - Créer un bouton pour fermer ton formulaire

Starec

[denils]

place ca dans le module:
Option Compare Database

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
et utilise kom ca:
ChangerCouleur RGB(200, 200, 220)

[Tofalu]

Certes mais cela change pour toutes les fenêtres