Discussion :

[daladim]

Titre : Comment appliquer le style visuel de Windows XP aux contrôles de Microsoft Windows CommonControls ?
Auteur : Daladim (à partir d'une source de lumesh )

Cette manipulation (http://vb.developpez.com/faq/?page=Controles#styleXP) permet d'appliquer le style visuel de Windows XP aux contrôles par défaut de Visual Basic, mais pas aux contrôles avancés de Microsoft Windows CommonControls.

Pour appliquer le style visuel de Windows XP, même à ces contrôles :
Code : copiez ce code dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200
 
Sub Main()
    On Error Resume Next
    Dim iccex As tagInitCommonControlsEx
    With iccex
        .lngSize = LenB(iccex)
        .lngICC = ICC_USEREX_CLASSES
    End With
    InitCommonControlsEx iccex
    On Error GoTo 0
End Sub

Conditions d'utilisation :
• Il faut utiliser Microsoft Windows CommonControls 5.0 (ca ne fonctionne pas sur la version 6.0)
• Il faut définir, dans les propriétés du projet, l'objet de démarrage comme étant Sub Main.
• Il faut également créer un fichier Manifest, à placer dans le même dossier que le programme compilé (la méthode pour créer les fichiers Manifest est la même qu'ici : http://vb.developpez.com/faq/?page=Controles#styleXP).
• Dernière précision et seul point négatif : j'ai l'impression que cette méthode ne marche que sur les ordinateurs où VB6 est installé.

Edit : mise en forme

[ThierryAIM]

Bizarre, chez moi le style XP fonctionne très bien avec MS Common Controls 5.0 sans ajouter une seule ligne de code
Par contre, effectivement, ça ne fonctionne pas avec la version 6