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