Page 1 sur 1

[Résolu] Bouton Radio ON/OFF

Publié : jeu. 29/mai/2025 18:30
par SPH
Salut,
je voudrais que la variable "who" m'indique si le bouton radio est coché ou pas...

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 170, 160, "OptionGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    OptionGadget(0, 30, 20, 90, 20, "Option 1")
    OptionGadget(1, 30, 45, 90, 20, "Option 2")
    OptionGadget(2, 30, 70, 90, 20, "Option 3")
    
    SetGadgetState(1, 1)   ; sélectionne la deuxième option
    
    ButtonGadget(10, 30,  100, 100, 40, "Save")

  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Gadget
      
      Select EventGadget()
        Case 10 ; save pref
        Debug "the radio button is : "+who
      EndSelect
      
    EndIf
    
  Until Event = #PB_Event_CloseWindow
  
EndIf

End


[Résolu] Bouton Radio ON/OFF

Publié : jeu. 29/mai/2025 21:03
par SPH
Reponse :

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 170, 160, "OptionGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    OptionGadget(0, 30, 20, 90, 20, "Option 1")
    OptionGadget(1, 30, 45, 90, 20, "Option 2")
    OptionGadget(2, 30, 70, 90, 20, "Option 3")
    
    SetGadgetState(1, 1)   ; sélectionne la deuxième option
    
    ButtonGadget(10, 30,  100, 100, 40, "Save")

  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Gadget
      
      Select EventGadget()
        Case 10 ; save pref
          For i=0 To 2
            Debug "the radio button "+Str(i+1)+"is : "+GetGadgetState(i)
          Next
          
      EndSelect
      
    EndIf
    
  Until Event = #PB_Event_CloseWindow
  
EndIf

End