D�finit les styles �tendus qui sont actuellement en usage
#include <GuiTab.au3>
_GUICtrlTab_SetExtendedStyle ( $hWnd, $iStyle )
$hWnd | ID/handle du contr�le Tab |
$iStyle | Styles �tendus en cours d'utilisation: $TCS_EX_FLATSEPARATORS - Le contr�le dessinera des s�parateurs entre les onglets du contr�le $TCS_EX_REGISTERDROP - La contr�le g�n�re des messages de notification $TCN_GETOBJECT pour demander un objet cible sur lequel d�poser un objet en cours de d�placement 'drag' sur les onglets du contr�le. |
#include <GUIConstantsEx.au3> #include <GuiTab.au3> #include <MsgBoxConstants.au3> Example() Func Example() Local $idTab ; Cr�e une GUI GUICreate("Tab Control Set Extended Style", 400, 300) $idTab = GUICtrlCreateTab(2, 2, 396, 296, BitOR($TCS_BUTTONS, $TCS_FLATBUTTONS)) GUISetState(@SW_SHOW) ; Ajoute des onglets _GUICtrlTab_InsertItem($idTab, 0, "Tab 1") _GUICtrlTab_InsertItem($idTab, 1, "Tab 2") _GUICtrlTab_InsertItem($idTab, 2, "Tab 3") ; Obtient/D�finit les styles �tendus _GUICtrlTab_SetExtendedStyle($idTab, $TCS_EX_FLATSEPARATORS) MsgBox($MB_SYSTEMMODAL, "Information", "Extended styles: 0x" & Hex(_GUICtrlTab_GetExtendedStyle($idTab))) ; Boucle jusqu'� ce que l'utilisateur quitte. Do Until GUIGetMsg() = $GUI_EVENT_CLOSE GUIDelete() EndFunc ;==>Example