Force une fen�tre � utiliser un ensemble diff�rent d'informations de style visuel que sa classe utilise normalement
#include <WinAPITheme.au3>
_WinAPI_SetWindowTheme ( $hWnd [, $sName = Default [, $sList = Default]] )
| $hWnd | Handle de la fen�tre dont les informations de style visuel doivent �tre chang�es. |
| $sName | [optionnel] Une cha�ne qui contient le nom de l'application. Si ce param�tre est 0 (par d�faut), le nom de l'application appelante est utilis�. |
| $sList | [optionnel] Une cha�ne qui contient une liste, � s�parateur "point-virgule", des noms de CLSID � utiliser � la place de la liste actuelle pass�e par la classe de la fen�tre. Si ce param�tre est 0 (par d�faut), la liste d'ID de la classe appelante est utilis�e. |
| Succ�s: | Retourne 1. |
| �chec: | Retourne 0 et d�finit @error <> 0, @extended peut contenir le code d'erreur HRESULT. |
Le gestionnaire de th�me conserve les associations de $sName et $sList pour la dur�e de vie de la fen�tre, m�me si les styles visuels changent par la suite.
Lorsque $sName et $sList sont 0, le gestionnaire de th�mes supprime la associations appliqu�es pr�c�demment. Pour �viter que des styles visuels soient appliqu�s � une fen�tre sp�cifi�e, passez une cha�ne vide ("") qui ne correspond � aucune entr�e de section.
Consultez SetWindowTheme dans la librairie MSDN.
#include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <WinAPISys.au3> #include <WinAPITheme.au3> If Number(_WinAPI_GetVersion()) < 6.0 Then MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Erreur', 'N�cessite Windows Vista ou une version ult�rieure.') Exit EndIf GUICreate('Test '& StringReplace(@ScriptName, '.au3', '()'), 332, 400) Local $idListview = GUICtrlCreateListView('Column 1|Column 2|Column 3|Column 4', 10, 10, 312, 380) For $i = 1 To 9 GUICtrlCreateListViewItem('Item ' & $i & '|' & 'Sub ' & $i & '|' & 'Sub ' & $i & '|' & 'Sub ' & $i, $idListview) Next _WinAPI_SetWindowTheme(GUICtrlGetHandle($idListview), 'Explorer') GUISetState(@SW_SHOW) Do Until GUIGetMsg() = $GUI_EVENT_CLOSE