Discussion :

[sanfour_walhan]

Salam
Comment faire pour coder un module pour personnaliser l'apparence d'une form?
merci

[rv26t]

Bonjour,

Code :

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

1
2
3
4
    Sub MetEnForme(f As Form)
        f.BackColor = Color.LightCyan
        ' ...
    End Sub

[sanfour_walhan]

Merci je teste je vous répond

[wallace1]

Bonsoir,

Si tu souhaites obtenir ce genre de résultat :

http://imabox.fr/a3/1405061947PyOjKO30.png

ou

http://imabox.fr/a3/1405061949fCuqvP08.png

ou

http://i.imgur.com/lREzeIc.png

ou

http://img685.imageshack.us/img685/3991/unled2pxu.jpg

ou

http://xertzproductions.weebly.com/login-gdi-theme.html


....alors il faut utiliser des thèmes compatibles "AeonHack Themebase"

Les pionniers en terme de création de thèmes sont :

- AeonHack
- Mavamaarten :Ghost Theme
- PatPositron : Positron Theme
- Perplexity
- Xertz : Login GDI+ Theme
.....
etc....

Si c'était pas la réponse attendue à ta question alors je suis désolé....

A+

[rv26t]

Bon, j'ai été un peu succint, mais la question est un peu vague.
Sans être aussi poussé que la proposition de wallace1
Voici le principe pour parcourir les contrôles d'une fenêtre pour changer les couleurs (on peut bien sur aussi changer la fonte, etc.) avec un appel récursif pour traiter les conteneurs enfants.

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
    Sub MetEnForme(f As Form)
        f.BackColor = Color.LemonChiffon
        ColoriseControl(f)
    End Sub
    Sub ColoriseControl(ByVal conteneur As Control)
        For Each ctrl As Control In conteneur.Controls  ' parcour de la collection des contrôles du conteneur
            Select Case True                            ' select sur true (condition vrai), qui sera vérifié sur chaque case si "ctrl" correspond au type de controle 
                Case TypeOf ctrl Is TextBox
                    ctrl.BackColor = Color.LightCyan
                Case TypeOf ctrl Is ListBox, TypeOf ctrl Is ComboBox
                    ctrl.BackColor = Color.LightCyan
                Case TypeOf ctrl Is Panel, TypeOf ctrl Is GroupBox
                    ctrl.BackColor = Color.PaleGoldenrod
                    ColoriseControl(ctrl)    ' appel récursif pour traiter les conteneurs enfants
            End Select
        Next
    End Sub

Sinon, il faut préciser un peu ce que tu souhaites faire.

[sanfour_walhan]

salam
merci pour vos reponses precieuse, ca donne vraiment des idees, mais ce que je cherche vraiment c'est une methode pour concevoire un joli design et puis l'appliquer a mon projet deja realisé, car je veux pas refaire toutes mes formes, mon projet contient 50 form ou plus.
Merci

[strikel]

Dans ce cas, tu peux créer un formulaire avec un design particuliers comme retirer la barre de titre faire des bords arrondi et mettre des images en fond.
Il te suffit alors d'en faire hériter tous les formulaires de ton projet

[sanfour_walhan]

Merci je teste et je repond