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 ?
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...
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
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 ?
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 ;)
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à
....
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.