APPLIQUER LE STYLE XP EN VB.NET
cs_lienrag
Messages postés
22
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
3 février 2005
-
14 avril 2003 à 12:55
cariok Messages postés 2 Date d'inscription vendredi 11 juin 2004 Statut Membre Dernière intervention 27 janvier 2006 - 27 janv. 2006 à 15:34
cariok Messages postés 2 Date d'inscription vendredi 11 juin 2004 Statut Membre Dernière intervention 27 janvier 2006 - 27 janv. 2006 à 15:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6740-appliquer-le-style-xp-en-vb-net
https://codes-sources.commentcamarche.net/source/6740-appliquer-le-style-xp-en-vb-net
27 janv. 2006 à 15:34
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 ?
27 janv. 2006 à 14:56
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 ;)
27 janv. 2006 à 12:13
Merci d'avance
19 août 2004 à 19:24
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à
18 août 2004 à 22:55
....
18 août 2004 à 22:49
....mais j' la solution (code pondu en 5 minutes pas plus)
Dans ton Main tu ajoute: Appliquer_Style_XP(Me)
Et dans un modul :
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 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
Simple....
Tu peux toujours ajouter d'autres "Case", mais je ne sais pas quels autres controls peuvent etres concernes.
Si tu as d'autres idees on pourait en faire un ZIP.
18 août 2004 à 18:24
Donc les bouttons se trouvant dans des groupbox ne prennent pas les proprietés flastyle = system
18 août 2004 à 00:17
18 août 2004 à 00:14
Dim B As Control
Dim BTN As Button
'recherche de tout les controls
For Each B In Me.Controls
'verification du type
If B.GetType.ToString = "System.Windows.Forms.Button" Then
Debug.WriteLine(B.GetType())
BTN = B
BTN.FlatStyle = FlatStyle.System
End If
Next
'Liberation memeoire
B = Nothing
BTN = Nothing
Il doit y avoir encore plus simple... je vais chercher
@+
17 août 2004 à 23:28
Mais ce que je voudrais faire c'est justement une fonction aui au démarrage de l'appli qui mette la proprietes : FlatStyle : sur tous les boutons, texbox, etc.....
(Pour c apas de pb : ma fonction marche)
Et IMPORTANT (ce que je n'arrive pas à faire) : c'est que les boutons etc.... qui se trouve dans un group box prennent aussi la propriete : FlatStyle :
Si quelqu'un a une idée, qu'il me fasse signe.
J'espere que vous avez compris ce que je veux faire
17 août 2004 à 22:48
En Dot Net, on n'a pas besoin de réinventer la roue. En effet il existe déjà un moyen d'utiliser le style XP. Pour cela il faut mettre la ligne suivante dans la méthode New de ton premier formulaire ou en première ligne de ton Main
Application.EnableVisualStyles
J'ai teste, c'est supper simple? seul petit truc a faire en plus, mettre la propriété FlatStyle des boutons (et quelques autres composants) sur System.
Apres, plus rien à faire.
30 mai 2004 à 13:04
Il faudrait faire un truc pour que tous les objets de la form prennent automatiquement cette proprieté.
J'ai vu qu'il y a déjà un truc comme ca dans cette source, mais elle ne doit pas marcher qd un objet fait parti d'un autre objet.
Si quelqu'un a une suggestion ????
30 mai 2004 à 01:38
29 mai 2004 à 17:04
j'ai un bouton ç l'intérieur d'un groupbox ==> Le style xp ne s'applique pas sur le bouton.
Le fait que le bouton fasse partie du groupbox ca merde !!!!!
Y a un moyen de le faire quand même ???
Sinon, y a pas de pb, c'est nikel !! félécitation !!!!
7 nov. 2003 à 18:05
7 nov. 2003 à 17:16
http://www.vbfrance.com/code.aspx?ID=17542
Je l'explique dans "Description de la source"
7 nov. 2003 à 12:58
3 nov. 2003 à 20:43
Merci Spy
3 nov. 2003 à 17:39
Ou je trouve des styles ?? et comment je les appliquent ??
2 nov. 2003 à 23:29
Le .exe.manifest sert à ce que ton application prenne en charge le style XP (les beux bouttos et tout et tout)
2 nov. 2003 à 22:22
14 sept. 2003 à 12:22
Tu l'as ? :)
14 sept. 2003 à 00:53
C'est chiant d'avoir le .exe.manifest à coté de son prog !
13 sept. 2003 à 18:54
J'ai un projet avec une dizaine de form, et ton truc ne s'applique qu'a la premiere qui est pour moi une mdi, donc inutile...
Donc j'ai du revoir le flatstyle de tt les bouton, groupbox et combobox, dommage que les numericupdown n'ait pas un style xp, car sous windows il en existe bien avec style xp ...
Enfin c'est bien pour la création du manifest :)
13 sept. 2003 à 18:47
Major.Version = 5
Minor.Version = 1
Crazyht à dit que Major.Version ne peut pas être supérieur à 5, ce qui est vrai, sinon ce serait Major.Version = 6
13 sept. 2003 à 18:22
--------------------------------------------------------------------------------
spy166 >> Major version pour le moment ne peut etre superieur a 5 :)
!!!!!!! et XP c koi ? c pas 5.1 par hasard ?!
16 juin 2003 à 11:37
19 avril 2003 à 00:16
18 avril 2003 à 23:23
C'est vrai. Dans ce cas, tu met "If Environment.OSVersion.Version.Major = 5 And Environment.OSVersion.Version.Minor > 0 Then"
Cette fois, je crois que c'est bon.
18 avril 2003 à 19:21
18 avril 2003 à 18:31
"If Environment.OSVersion.Version.Major = 5 Then"
met plutôt
"If Environment.OSVersion.Version.Major > 5 Then"
Comme ça, pas de problèmes...
17 avril 2003 à 08:31
Après recherches sur MSDN, j'ai trouvé que l'on pouvait utiliser la fonction GetVersionEx.
Et donc déterminer la version de Windows à coup sûr :
5.0 = Windows 2000
5.1 = Windows XP
5.2 = Windows Server 2003
16 avril 2003 à 16:43
14 avril 2003 à 13:56
Simple (encore faut il le savoir !!!!) mais tres efficace ....
BRAVO
14 avril 2003 à 13:11
Je vais regarder pour VB6 mais je crois qu'il y a pas mal de samples ici qui prennent déjà en charge le Style XP.
++,
XtOf
14 avril 2003 à 12:55
J'ai vu un truc comme ca sous delphi 7 .
Et sous vb6 possible ou pas ?