[R] Activer un check radio en fonction d'un GUI

[pierrotm777]

Bonjour,
Je cherche à positionner automatiquement un check type 'radio' à ON en fonction de la fenêtre active

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ListboxConstants.au3>

$MainGUI = GUICreate("Main GUI", 500, 603, -1, -1)
$Options = GUICtrlCreateButton("Options", 305, 5, 80, 25, $WS_GROUP, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUISetState()
;Gui Options
$OptionsGUI = GUICreate("Options", 255, 350, 120, 40,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_CLIPSIBLINGS),bitor($WS_EX_MDICHILD,$WS_EX_CLIENTEDGE),$MainGUI)
$SliderONOFF = GUICtrlCreateCheckbox("Optional Slider Section", 10, 10, 170, 17)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
If GUICtrlSetState(-1,$GUI_CHECKED) Then
    GUICtrlSetTip(-1,"Slider Section")
EndIf
$Group5 = GUICtrlCreateGroup(" Extra Send Commands ", 5, 35, 248, 50)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
$Radio41 = GUICtrlCreateRadio("None", 20, 50, 60, 17)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"GUI Normal")
$Radio42 = GUICtrlCreateRadio("2 Extra", 90, 50, 60, 17)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"GUI with 2 Extras")
$Radio43 = GUICtrlCreateRadio("5 Extra", 160, 50, 60, 17)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"GUI with 5 Extras")
$Group6 = GUICtrlCreateGroup(" Profiles ", 5, 97, 248, 220)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
$ProfilesList = GUICtrlCreateList("Default",8, 120, 240, 130)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"Choose a profile")
$InputProfileName = GUICtrlCreateInput("", 10, 250, 175, 25)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"Enter a profile name")
$NewProfileName = GUICtrlCreateButton("New", 190, 250, 50, 25)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"Save a new profile name")
$UseProfileName = GUICtrlCreateButton("Use", 10, 285, 80, 25)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"Use a profile name")
$DelProfileName = GUICtrlCreateButton("Delete", 90, 285, 80, 25)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"Delete a profile name")
$ClrHistory = GUICtrlCreateButton("Clr History", 170, 285, 80, 25)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"Clear the history profile list")
$ExitProfile = GUICtrlCreateButton("Done", 130, 322, 120, 25)
GUICtrlSetFont(-1, 10, 450, 0, "MS Sans Serif")
GUICtrlSetTip(-1,"Quit the profile window")
GUISetState(@SW_HIDE,$OptionsGUI)
$OptionsGUIStatus = False
;GUICtrlSetState($NewProfileName,$GUI_DISABLE)
GUICtrlSetState($UseProfileName,$GUI_DISABLE)
;GUICtrlSetState($DelProfileName,$GUI_DISABLE)
GUICtrlSetState($ClrHistory,$GUI_DISABLE)

[color=#FF0000]If GUICtrlSetState($MainGUI,$GUI_SHOW) Then GUICtrlSetState($Radio41,$GUI_CHECKED)[/color]

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Options
            GUISwitch($OptionsGUI)
            if $OptionsGUIStatus = true Then
                GUISetState(@SW_HIDE,$OptionsGUI)
                $OptionsGUIStatus=False
            Else
                GUISetState(@SW_SHOW,$OptionsGUI)
                $OptionsGUIStatus=True
            EndIf
    EndSwitch
Wend

La gui ci-dessus est une fenêtre fille.
A son ouverture, je voudrais forcer le bouton radio '$Radio41' à ce placer au 'vert' si la fenêtre principale $MainGUI est active.
J'ai bien essayé cela mais sans succés:

Code : Tout sélectionner

If GUICtrlSetState($MainGUI,$GUI_SHOW) Then GUICtrlSetState($Radio41,$GUI_CHECKED)

Quelle est mon erreur SVP ?

[pierrotm777]

J'ai aussi essayé cela sans succés:

Code : Tout sélectionner

If GUISetState(@SW_SHOW,$MainGUI) Then GUICtrlSetState($Radio41,$GUI_CHECKED)

[TommyDDR]

Ouvrez un dico / traducteur et regarder à Set et Get

Le set (GUISetState) permet de Mettre un état tandis que Get (GUIGetState) permet de récupérer un état.

Donc dans un If, vous testez l'état de la fenêtre.

=> GUIGetState

Regardez l'aide de cette fonction pour connaitre les valeurs retournées.

[pierrotm777]

Désolé, mais je crois que la fonction GUIGetState n'existe pas en 3.3.6.1

[zeshrek]

Il faut savoir qu'un GUI c'est une appellation pour les humains.
Pour Windows, c'est juste une fenetre, dont on peut recuperer le status avec WinGetState

[TommyDDR]

... zeshrek, toujours aussi rapide.

En effet, remplacez GUI par Win et le tour est joué (Vous auriez peut être pu trouver tout seul )

[pierrotm777]

J'avoue que oui, mais là , je n'y avais pas pensé.

Merci !!!

[pierrotm777]

Pour info,
cela donne donc ceci:

Code : Tout sélectionner

Func SetRadioOptionsGUI(); test quel bouton radio de la GUI option est actif à l'ouverture
    If BitAND(WinGetState($MainGUI),2) Then
        GUICtrlSetState($Radio41,$GUI_CHECKED)
    ElseIf BitAND(WinGetState($MainGUI2Extras),2) Then
        GUICtrlSetState($Radio42,$GUI_CHECKED)
    ElseIf BitAND(WinGetState($MainGUI5Extras),2) Then
        GUICtrlSetState($Radio43,$GUI_CHECKED)
    EndIf
EndFunc

Merci encore à tous !