Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Loockys", 241, 260, 192, 124)
GUISetBkColor(0xF0F0F0)
$Group1 = GUICtrlCreateGroup("Couleur Primaire", 20, 20, 200, 140)
$Radio1 = GUICtrlCreateRadio("Bleu", 40, 40, 100, 17)
$Radio2 = GUICtrlCreateRadio("Rouge", 40, 60, 100, 17)
$Radio3 = GUICtrlCreateRadio("Jaune", 40, 80, 100, 17)
$Btn1 = GUICtrlCreateButton("Envoyer", 40, 110, 160, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Par Défaut", 40, 180, 150, 28)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
$Btn2 = GUICtrlCreateButton("Mettre Par Défaut", 40, 220, 160, 25)
GUISetState(@SW_SHOW)
Global $Nbr = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Btn1
_Btn1()
case $Btn2
_Btn2()
case $Radio1
$Nbr = 1
case $Radio2
$Nbr = 2
case $Radio3
$Nbr = 3
EndSwitch
WEnd
Func _Btn1()
Select
Case $Nbr = 1
MsgBox(0,"","Bleu",2)
GUICtrlSetData($Label1, "Bleu")
GUISetBkColor(0x0000FF, $Form1)
Case $Nbr = 2
MsgBox(0,"","Rouge",2)
GUICtrlSetData($Label1, "Rouge")
GUISetBkColor(0xFF0000, $Form1)
Case $Nbr = 3
MsgBox(0,"","Jaune",2)
GUICtrlSetData($Label1, "Jaune")
GUISetBkColor(0xFFFF00, $Form1)
Case Else
MsgBox(16,"Info : Erreur","Vous devez faire une sélection...")
EndSelect
EndFunc
Func _Btn2()
GUICtrlSetState($Radio1, $GUI_UNCHECKED)
GUICtrlSetState($Radio2, $GUI_UNCHECKED)
GUICtrlSetState($Radio3, $GUI_UNCHECKED)
GUICtrlSetData($Label1, "Par Défaut")
GUISetBkColor(0xF0F0F0, $Form1)
EndFunc