<?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="CompanyName.ProductName.YourApp" type="win32" /> <description>Your application description here.</description> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*" /> </dependentAssembly> </dependency> </assembly>
Se ad esempio il vostro programma si chiama "MyProgram.exe", create un file ASCII con il testo sopra indicato, e chiamatelo "MyProgram.exe.manifest".
Ora che avete creato il file manifest, dovete inserire all'interno dell'evento inizialize() del form di partenza dell'applicazione, questo codice:
Private Sub Form_Initialize() Dim x As Long x = InitCommonControls End Sub
ma solo dopo aver dichiarato la libreria Common Controls 6.0 all'inizio del modulo di form, in questo modo:
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
Tutti i controlli dei vostri form assumeranno ora lo stile che hanno in Windows XP (Ovviamente questo effetto è visibile solo da chi utilizza Win XP).
Noterete però che i controlli che si trovano dentro un frame, non verrano visualizzati in modo corretto. Per risolvere questo problema basta inserire tali controlli dentro una PictureBox.
Aggiungi un commento