Appliquer le style xp en vb.net

Soyez le premier à donner votre avis sur cette source.

Vue 11 535 fois - Téléchargée 1 475 fois

Description

Code permettant d'appliquer aux contrôle le style XP avec création automatique du fichier .manifest

mon code modifie aussi les propriétés FlatStyle nécessaires à la visu XP.

A essayer avec WindowBlinds pour le fun...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cariok
Messages postés
2
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
27 janvier 2006
-
Merci pour ta réactivité.
Je ne suis pas sûr d'avoir bien saisi.
Mon contexte est le suivant : mon client possède Visual Studio 2005, avec le Framework 2.0.
Malheureusement ils sont toujours sous l'OS W.2000
Si j'ai bien compris, ils garderont le style "rétro", avec une légère évolution sur quelques contrôles ?
jmenfous
Messages postés
117
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
2 juillet 2009
-
On peut repondre par ni oui ni non, mais ca ne risque pas de te plaire :)

Le fichier manifest (plus trop a la mode il faut l'avouer) et les methodes d'autorisation des style visuel se base sur ton OS. Donc pour 2000 tu aurras au mieu une legere modification de tes control un peu dans le style de ce qui existait dans office 2000. Avec des textbox un peu plus sympas. Mais je ne crois pas que les autres controls soient affectes.

Si quelqun a la liste, pourquoi pas, mais avec copain Vista qui pointe...

Et puis Dot Net 2, enfin le reve quoi ;)
cariok
Messages postés
2
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
27 janvier 2006
-
Petite question : cette source est-elle valable avec l'OS Windows 2000 ?
Merci d'avance
TheEwook
Messages postés
155
Date d'inscription
samedi 3 juillet 2004
Statut
Membre
Dernière intervention
30 mai 2005
-
re :

Le code est cool, j'ai fait des modifs pour que le style xp s'applique sur les autres controls (checkbox, radiobutton)

C'est sur qu'on pourrait en faire une source. Ben si tu veux tu peux la poster car tu a pratiquement tout fait. Moi je n'ai eu que l'idée.

Voilà le code au finish :

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

Et dans la form_load

Appliquer_Style_XP(Me)

Voilà
jmenfous
Messages postés
117
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
2 juillet 2009
-
Pardon ce n'est pas dans un Main mais dans le Load qu'il faut ajouter Appliquer_Style_XP(Me)
....

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.