Appliquer le style xp en vb.net
Soyez le premier à donner votre avis sur cette source.
Vue 11 605 fois - Téléchargée 1 522 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...
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
- Appliquer le style xp en vb.net
- Vb.net - migration d'une application simple de vb6 vers vb.net - Codes sources - Visual Basic / VB.NET (Tutoriels)
- Lister les handles (fichiers, clé de registres,...) ouverts par un programme (nt/2000/xp) en vb.net - Codes sources - Visual Basic / VB.NET (Système)
- Appliquer un style XP ✓ - Forum - Visual Basic 6
- Style XP sous VB 2000 ✓ - Forum - Visual Basic
- Visual Basic / VB.NET : My project application (gestion des projets vb) avec style winxp - CodeS Sou - Guide
Commentaires
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 ?
- Messages postés
-
117
- Date d'inscription
- mardi 21 janvier 2003
- Statut
- Membre
- Dernière intervention
- 2 juillet 2009
1Le 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 ;)
Merci d'avance
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à
- Messages postés
-
117
- Date d'inscription
- mardi 21 janvier 2003
- Statut
- Membre
- Dernière intervention
- 2 juillet 2009
1....
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.