Style xp - flatstyle = system sur tous les controls de la form

Télécharger le projet
Commenter

Description

Ce code n'est pas vraiment de moi mais de "jmenfous" (merci à lui)
Je l'ai quand même un peu modifier !!!!!

Le principe est de modifier automatique la proprietes FlatStyle = System sur tous les objets de la form, tels que les boutons, les checkbox, les radiobutton, etc.... (en faite les objets qui ont la proprietes FlatStyle)

Ca vous évitera de modifier à chaque fois la proprietes de vos objets, et surtout si vous avez déjà développé des applications avec le style standard, de ne pas devoir tout repasser les objets un par un.

Source / Exemple : 




        •  Dans un module ***** 


Public Sub Appliquer_Style_XP(ByVal vCtrl As Control)
        Dim C As Control
        'recherche de tout les controls
        For Each C In vCtrl.Controls
            'verification du type
            Select Case C.GetType.ToString
                Case "System.Windows.Forms.Button"
                    Dim CBtn As System.Windows.Forms.Button
                    CBtn = C
                    CBtn.FlatStyle = FlatStyle.System
                    CBtn = Nothing 'leberation memoire

                Case "System.Windows.Forms.GroupBox"
                    Appliquer_Style_XP(C)
                    Dim cGBox As System.Windows.Forms.GroupBox
                    cGBox = C
                    cGBox.FlatStyle = FlatStyle.System
                    cGBox = Nothing 'memoire quand tu nous tiend

                Case "System.Windows.Forms.CheckBox"
                    Appliquer_Style_XP(C)
                    Dim chckBox As System.Windows.Forms.CheckBox
                    chckBox = C
                    chckBox.FlatStyle = FlatStyle.System
                    chckBox = Nothing 'memoire quand tu nous tiend

                Case "System.Windows.Forms.RadioButton"
                    Appliquer_Style_XP(C)
                    Dim cRdtnBox As System.Windows.Forms.RadioButton
                    cRdtnBox = C
                    cRdtnBox.FlatStyle = FlatStyle.System
                    cRdtnBox = Nothing 'memoire quand tu nous tiend

                Case Else
                    Appliquer_Style_XP(C) ' et c'est reparti pour chercher les autres controls qui sont contenus dans C
            End Select
        Next

        'Liberation memeoire
        C = Nothing

    End Sub


        •  Dans le Form_Load de la form ****


Appliquer_Style_XP(Me)

Conclusion :


N'oubliez pas bien sur d'activer le style xp en rajoutant :
Application.EnableVisualStyles() avant InitializeComponent() et aprés MyBase.New() dans #Region " Code généré par le Concepteur Windows Form "

comme ceci :

MyBase.New()

Application.EnableVisualStyles()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TheEwook)