[..] Tab sheet en noir

[B0B]

Bonjour à tous!
Voici le problème du jour: Comment passer la couleur de fond d'un tab et de ses tab sheets en NOIR?
Merci d'avance!

[RL77LUC]

GuiCtrlSetBkColor ne fonctionne pas ?

[Yle]

Bonsoir,

J'ai eu à un moment donné le souci et qq m'a donné une solution
Il faut simuler une zone
Ci dessous un exemple avec un GuiCreate que je viens de te créer. Je te laisse le soin d'adapter.

► Afficher le texte

#include <GuiConstantsEx.au3>
$Page = 0
$GDTarot0 = GUICreate("Exemple" , 300, 300, -1, -1)
_GUICtrlTabSetBkColor($GDTarot0, $Page, 0x000011)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _GUICtrlTabSetBkColor($hWnd, $hSysTab32, $sBkColor)
;Disabled Label to hold the color
Local $aTabPos = ControlGetPos($hWnd, "", $hSysTab32)
GUICtrlCreateLabel("", 50, 100, 70, 80)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, $sBkColor)
EndFunc

[B0B]

Veuillez m'excuser pour ma longue absence
Et je tiens à vous remercier pour vos réponses!!!

[B0B]

Euuuuuuu je crois que j'ai répondu un peu vite là...

Rien qu'en remplaçant le label par un tab ça ne marche pas...

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
$Page = 0
$GDTarot0 = GUICreate("Exemple" , 300, 300, -1, -1)
_GUICtrlTabSetBkColor($GDTarot0, $Page, 0x000011)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _GUICtrlTabSetBkColor($hWnd, $hSysTab32, $sBkColor)
;Disabled Label to hold the color
Local $aTabPos = ControlGetPos($hWnd, "", $hSysTab32)
GUICtrlCreateTab("", 50, 100, 70, 80)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, $sBkColor)
EndFunc

[Yle]

Pas répondu avant car en vacances sans Internet

Ce n'est pas de cette façon qu'il faut procéder...
Essayez ceci :

► Afficher le texte

#include <GuiConstantsEx.au3>

$GDTarot0 = GUICreate("Exemple" )
$Page = GUICtrlCreateTab(5,5,300,300)
$Page0 = GUICtrlCreateTabItem("Informations")

_GUICtrlTabSetBkColor($Page, $Page0, 0x000011)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _GUICtrlTabSetBkColor($hWnd, $hSysTab32, $sBkColor)
;Disabled Label to hold the color
Local $aTabPos = ControlGetPos($hWnd, "", $hSysTab32)
GUICtrlCreateLabel("----- CECI est un ----" & @crlf & " EXEMPLE" , 25,35, 250, 250)
; -Sur le GuiCtrlCreateLabel, on peut agrandir le carré NOIR afin qu'il soit de la même taille que le TabItem
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, $sBkColor)
EndFunc