Forse l'interfaccia metalllica stile 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.
carmines92
