Vzhled komponent jako ve Windows XP

Chcete mít ve svých aplikacích moderní vzhled jako je ve Windows XP?

Jsem rád, že vás název tohoto článku nalákal k jeho přečtení. Určitě jste chtěli mít tlačítka podobající se tlačítkům ve Windows XP. I já sem dlouho přemýšlel, jak toho docílit. Nakonec jsem na Internetu našel něco o souboru .manifest, který spolu s kouskem kódu dokáže náš problém vyřešit.

Nejprve se budeme zabývat souborem .manifest. Zkopírujte si zdroják do textového editoru. Ještě než soubor uložíte, všimněte si name="Nazev_Aplikace". Sem místo Nazev_Aplikace napište název svého projektu. Nyní můžete soubor uložit pod názvem Nazev_Aplikace.exe.manifest. Tento soubor pak dáme ke spouštěcímu souboru (Nazev_Aplikace.exe). Musí to být ve stejném adresáři.

<?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="pokus1" type="win32" /> 
<dependency> 
<dependentAssembly> 
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" /> 
</dependentAssembly> 
</dependency>
</assembly>

Teď už jen zbývá napsat ve Visual Basicu tento kód:

'Do formuláře:
Private Sub Form_Initialize()
    InitCommonControls
End Sub

'Do modul1
Public Declare Sub InitCommonControls Lib "comctl32"()

K článku je přiložen i zdrojový soubor.