Alessio Luffarelli - Sito Web
Sei qui: Guide e Tutorial / Desktop / Controlli di VB6 in stile Windows XP
Controlli di VB6 in stile Win XP.

Per dare alle proprie applicazioni scritte in Visual Basic 6, l'aspetto dei programmi di Windows XP, è sufficiente inserire nella cartella del programma, un file con estensione .manifest e con lo stesso nome del vostro programma, che contenga questo codice:

<?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.


Argomenti correlati:

Controlli in stile Windows XP in Visual Basic .Net.

(C) Alessio Luffarelli