1. Le fichier Manifest
Créer un fichier manifest nommé monapp.exe.manifest
et le placer dans le dossier de l' exe.
Remplacer le nom "monapp" par le nom de votre exe.
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="monapp"
type="win32"
/>
<description>QCM</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
2. InitCommonControls
Déclarer la fonction InitCommonControls en tant que private dans un module
de formulaire, sans le private pour un module standard:
Option Explicit
Private Declare Sub InitCommonControls Lib "COMCTL32.DLL" ()
3. Appel de la fonction
Appeler la fonction dans le form_initialize, PAS dans le form_load:
Private Sub Form_Initialize()
InitCommonControls
End Sub
4. Compiler, lancer.
Pour les contrôles inclus dans un Frame, ça ne marchera pas parce que
le contrôle Frame n' a pas de hDC. Le remplacer par un Picture Box.
Pour appliquer à l' IDE:
Placer VB6.exe.manifest dans le dossier de vb6.exe. C'est tout.