[R] Obliger une sélection au script

[loockys]

Salut tout le monde.
Comment je peux m'y prendre ?
Pour obliger l'utilisateur de faire un choix, sinon on met ce message d'erreur : MsgBox(16,"Info : Erreur","Vous devez faire une sélection...")

Par avance merci et si vous avez d'autres exemples différent de ce script je suis preneur.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("Loockys", 241, 223, 192, 124)
$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("Label1", 88, 180, 65, 28)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUISetState(@SW_SHOW)



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            
         case $Btn1
            _Btn1()
                
            
         case $Radio1
              $Nbr = 1
              
         case $Radio2
              $Nbr = 2
              
         case $Radio3
              $Nbr = 3
            
            
            
    EndSwitch
WEnd



Func _Btn1()


   If $Nbr = 1 Then
      MsgBox(0,"","Bleu",2)
      GUICtrlSetData($Label1, "Bleu")
      GUISetBkColor(0x0000FF, $Form1)
      Else
   If $Nbr = 2 Then
      MsgBox(0,"","Rouge",2)
      GUICtrlSetData($Label1, "Rouge")
      GUISetBkColor(0xFF0000, $Form1)
      Else
   If $Nbr = 3 Then
      MsgBox(0,"","Jaune",2)
      GUICtrlSetData($Label1, "Jaune")
      GUISetBkColor(0xFFFF00, $Form1)
   EndIf
   EndIf
   EndIf
   
EndFunc
 

[peuchere83]

Bonjour,

j'ai juste corrigé ton code :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("Loockys", 241, 223, 192, 124)
$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("Label1", 88, 180, 65, 28)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUISetState(@SW_SHOW)

$Nbr = 0

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

         case $Btn1
            _Btn1()

         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

Il y a d'autres solutions mais en me basant sur ton code voici la plus simple (à mon avis)

[TopXm]

Hello,
Sinon au pire cocher un des Radios par défaut ?

Code : Tout sélectionner

GUICtrlSetState($Radio1, $GUI_CHECKED)

[loockys]

Merci infiniment peuchere83 pour l'astuce, elle me servira pour mon évolution.
TopXm c'est noté merci.

► Afficher le texte

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