[R] ControlDisable et la navigation au clavier

[fredone]

bonjour,

j'utilise 2 liste de radio boutons (séparer par "GuiCtrlCreateGroup") et les choix dans la première liste influe sur ceux de la deuxième. J'ai donc trouvé la solution de griser les contrôles de la deuxième liste en utilisant la fonction "ControlDisable" cela fonctionne plutôt bien. MAIS il y a un mais !

si comme dans l'exemple ci-dessous je grise le premier élément de la deuxième liste, et que je navigue au clavier (tabulation) mon focus ne passe plus dans la seconde liste

comment faire !!!!

Pour tester l'exemple ci-dessous il faut Sélectionner le premier radio de la première liste et tenter de d'atteindre la deuxième liste par la tabulation !

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $filemenu, $fileitem, $recentfilesmenu, $separator1
    Local $exititem, $helpmenu, $aboutitem, $Precbutton, $Suivantbutton
    Local $msg, $file, $radio1, $radio2, $radio3, $radio4
    Local $msg, $file, $radio5, $radio6, $radio7, $radio8
    Local $questradio1, $questradio2, $questradio3, $questradio4
    local $num, $lastrep,$var
    
    
    $var = IniReadSection(@MyDocumentsDir &"\sosie\quest.ini", "lastrep")
If @error Then 
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $i = 1 To $var[0][0]
        MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1])
    Next
EndIf
    
    

    #forceref $separator1
    $num = IniRead(@MyDocumentsDir &"\sosie\quest.ini", "lastrep", "numero", "NotFound")
    
    $questradio1 = IniRead(@MyDocumentsDir &"\sosie\quest.ini", $num, "1", "NotFound")
    $questradio2 = IniRead(@MyDocumentsDir &"\sosie\quest.ini", $num, "2", "NotFound")
    $questradio3 = IniRead(@MyDocumentsDir &"\sosie\quest.ini", $num, "3", "NotFound")
    $questradio4 = IniRead(@MyDocumentsDir &"\sosie\quest.ini", $num, "4", "NotFound")
    GUICreate("question" &$num, 600, 400)
    GuiCtrlCreateLabel("Choisissez la phrase qui vous décrit le MIEUX (positif) puis vous choisirez la phrase qui vous décrit le MOINS (négatif)", 10, 10, 590, 20)
    $filemenu = GUICtrlCreateMenu("File")
    $fileitem = GUICtrlCreateMenuItem("Open...", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu)
    $separator1 = GUICtrlCreateMenuItem("", $filemenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $helpmenu = GUICtrlCreateMenu("?")
    $aboutitem = GUICtrlCreateMenuItem("About", $helpmenu)
    
    GuiCtrlCreateGroup("Positif", 30, 30, 440, 115)
    $radio1 = GUICtrlCreateRadio($questradio1, 60, 60, 400, 20)
    $radio2 = GUICtrlCreateRadio($questradio2, 60, 80, 400, 20)
    $radio3 = GUICtrlCreateRadio($questradio3, 60, 100, 400, 20)
    $radio4 = GUICtrlCreateRadio($questradio4, 60, 120, 400, 20)
    GUICtrlCreateGroup ("",-99,-99,1,1)  ;close group
    
    GuiCtrlCreateGroup("Négatif", 30, 150, 440, 115)
    $radio5 = GUICtrlCreateRadio($questradio1, 60, 180, 400, 20)
    $radio6 = GUICtrlCreateRadio($questradio2, 60, 200, 400, 20)
    $radio7 = GUICtrlCreateRadio($questradio3, 60, 220, 400, 20)
    $radio8 = GUICtrlCreateRadio($questradio4, 60, 240, 400, 20)
    GUICtrlCreateGroup ("",-99,-99,1,1)  ;close group
    
    $Suivantbutton = GUICtrlCreateButton("Suivant", 180, 320, 70, 20)
    $Precbutton = GUICtrlCreateButton("Retour", 50, 320, 70, 20)
    
    GUISetState()


$file = FileOpen(@MyDocumentsDir &"\sosie\sosie.ini", 10) ;création du fichier ini si inexistant sur le poste.

If $file = -1 Then
    MsgBox(0, "Error", "ne peux pas ouvrir le fichier résultat")
    Exit
EndIf

FileClose($file)



    While 1
        $msg = GUIGetMsg()


        Select
            Case $msg = $GUI_EVENT_CLOSE 
                ExitLoop

            Case $msg = $fileitem
                $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
                If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)

            Case $msg = $exititem
                ExitLoop
                
            Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
                ;GUICtrlSetData($radio5,"ne peut être choisi")
            ControlDisable ( "question" &$num, "", $radio5)
            
            
            
            
            Case $msg = $Suivantbutton
                ;IniWrite(@MyDocumentsDir &"\sosie\sosie.ini","", "positif", "a") ;mise en mémoire de la derniere question
                Select
                    case BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
                        IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "positif", "a")
                    case BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
                        IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "positif", "b")
                    case BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED
                        IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "positif", "c")
                    case BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED
                        IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "positif", "d")
                EndSelect
                Select
                        case BitAND(GUICtrlRead($radio5), $GUI_CHECKED) = $GUI_CHECKED
                            IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "négatif", "a")
                        case BitAND(GUICtrlRead($radio6), $GUI_CHECKED) = $GUI_CHECKED
                            IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "négatif", "b")
                        case BitAND(GUICtrlRead($radio7), $GUI_CHECKED) = $GUI_CHECKED
                            IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "négatif", "c")
                        case BitAND(GUICtrlRead($radio8), $GUI_CHECKED) = $GUI_CHECKED
                            IniWrite(@MyDocumentsDir &"\sosie\sosie.ini",$num, "négatif", "d")
                EndSelect
                        
                    
                    
            $num=$num+1
            GUICtrlSetData($radio4,"test")

            Case $msg = $Precbutton
                MsgBox(0, "Click", "You clicked prec!")

            Case $msg = $aboutitem
                MsgBox(0, "About", "GUI Menu Test")
        EndSelect
    WEnd

    GUIDelete()

    Exit
EndFunc   ;==>_Main

[orax]

Vous pourriez ajouter le style $WS_TABSTOP pour passer à l'élément suivant.

Code : Tout sélectionner

#include <WindowsConstants.au3>
[...]
    GuiCtrlCreateGroup("Positif", 30, 30, 440, 115)
    $radio1 = GUICtrlCreateRadio($questradio1, 60, 60, 400, 20,$WS_TABSTOP)
    $radio2 = GUICtrlCreateRadio($questradio2, 60, 80, 400, 20,$WS_TABSTOP)
    $radio3 = GUICtrlCreateRadio($questradio3, 60, 100, 400, 20,$WS_TABSTOP)
    $radio4 = GUICtrlCreateRadio($questradio4, 60, 120, 400, 20,$WS_TABSTOP)
    GUICtrlCreateGroup ("",-99,-99,1,1)  ;close group
   
    GuiCtrlCreateGroup("Négatif", 30, 150, 440, 115)
    $radio5 = GUICtrlCreateRadio($questradio1, 60, 180, 400, 20,$WS_TABSTOP)
    $radio6 = GUICtrlCreateRadio($questradio2, 60, 200, 400, 20,$WS_TABSTOP)
    $radio7 = GUICtrlCreateRadio($questradio3, 60, 220, 400, 20,$WS_TABSTOP)
    $radio8 = GUICtrlCreateRadio($questradio4, 60, 240, 400, 20,$WS_TABSTOP)
    GUICtrlCreateGroup ("",-99,-99,1,1)  ;close group

[Tlem]

Je pense que le codage correct de votre GUI devrait résoudre le problème.
Cet exemple vous montre comment faire pour ne pas avoir d'interaction entre deux listes de RadioBox :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 281, 146, -1, -1)
$Group1 = GUICtrlCreateGroup("Group1", 8, 8, 129, 129)
$Radio1 = GUICtrlCreateRadio("Radio1", 24, 32, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Radio2", 24, 56, 113, 17)
$Radio3 = GUICtrlCreateRadio("Radio3", 24, 80, 113, 17)
$Radio4 = GUICtrlCreateRadio("Radio4", 24, 104, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 144, 8, 129, 129)
$Radio5 = GUICtrlCreateRadio("Radio5", 160, 32, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio6 = GUICtrlCreateRadio("Radio6", 160, 56, 113, 17)
$Radio7 = GUICtrlCreateRadio("Radio7", 160, 80, 113, 17)
$Radio8 = GUICtrlCreateRadio("Radio8", 160, 104, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

        Case $Radio1, $Radio2, $Radio3, $Radio4, $Radio5, $Radio6, $Radio7, $Radio8
            $vRadio1 = _IsChecked($Radio1)
            $vRadio2 = _IsChecked($Radio2)
            $vRadio3 = _IsChecked($Radio3)
            $vRadio4 = _IsChecked($Radio4)
            $vRadio5 = _IsChecked($Radio5)
            $vRadio6 = _IsChecked($Radio6)
            $vRadio7 = _IsChecked($Radio7)
            $vRadio8 = _IsChecked($Radio8)

            MsgBox(32, "Etat des boutons radio :", "Radio 1 est à " & $vRadio1 & @CRLF & _
            "Radio 2 est à " & $vRadio2 & @CRLF & _
            "Radio 3 est à " & $vRadio3 & @CRLF & _
            "Radio 4 est à " & $vRadio4 & @CRLF & _
            "Radio 5 est à " & $vRadio5 & @CRLF & _
            "Radio 6 est à " & $vRadio6 & @CRLF & _
            "Radio 7 est à " & $vRadio7 & @CRLF & _
            "Radio 8 est à " & $vRadio8)
    EndSwitch
WEnd


Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

[fredone]

bonjour,

et merci pour vos réponses: mais, il y a un mais.

@Orax, ta solution permet en effet de contourner le problème, mais il crée un comportement anormal de la tabulation. En effet lorsque les éléments d'une liste sont groupés, la tabulation fait entrer et sortir de cette liste. Alors qu'en appliquant ta solution, la tabulation parcours les éléments de la liste.

@Tlem, je n'ai pas bien compris ton message, j'utilise bien "GuiCtrlCreateGroup" pour grouper mes radio-boutons mais je désire créer une interaction entre mes deux listes de radio-boutons... Car les deux liste sont les mêmes et on ne peut répondre la même questions aux deux listes. donc si on choisit la question 1 dans la première liste, alors la question 1 dans la seconde apparait grisée. (mais lors de l'accès par la tabulation la seconde liste est alors ignorée !!)

je continue a plancher sur le problème, mais suis toujours preneurs de vos solutions !!!

[Tlem]

Bien. Visiblement j'avais compris l'inverse, c'est à dire aucune interaction.

Cela dit, je ne vois aucun intérêt à votre question, puisque vous dites :

Car les deux liste sont les mêmes et on ne peut répondre la même questions aux deux listes.

Donc quel serait l'intérêt de pouvoir cliquer sur la deuxième liste puisque les questions sont les même que la première ...

Mais effectivement, si vous désactivez le premier élément d'un groupe, vous ne pouvez plus y accéder avec la tabulation.
Ceci est tout à fait normal, puisque le premier élément d'un groupe est celui qui doit être atteint par la tabulation, mais comme il est désactivé ....

[fredone]

mes explications manquaient de clarté !!

c'est les mêmes réponses (les 2 listes) mais avec des questions différentes... choisir dans la premiere liste ce qui vous définis le mieux et dans la deuxieme ce qui vous définis le moins... et les 4 réponses sont les mêmes... et nous ne pouvons évidement pas choisir la même réponse...

comme tu le dis c'est normal et je le conçoit, mais je cherche a détourner le problème et à donner le focus au deuxième élément de la deuxième liste après la tabulation !!!!

je pourrais aussi laisser le control actif et prévenir l'utilisateur qu'il ne peut la sélectionner une deuxième fois... si il tente de la cocher...

[Tlem]

je pourrais aussi laisser le control actif et prévenir l'utilisateur qu'il ne peut la sélectionner une deuxième fois... si il tente de la cocher...

Cela me semble la solution la plus 'simple'.

Edit : Sinon vous pouvez tout simplement faire ceci :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 291, 107, 192, 124)
$Group1 = GUICtrlCreateGroup("Group1", 8, 8, 137, 89)
$Radio1 = GUICtrlCreateRadio("Radio1", 24, 32, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 24, 64, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 152, 8, 129, 89)
$Radio3 = GUICtrlCreateRadio("Radio3", 160, 32, 113, 17)
$Radio4 = GUICtrlCreateRadio("Radio4", 160, 64, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

        Case $Radio1
            If _IsChecked($Radio3) Then GUICtrlSetState($Radio1, $GUI_UNCHECKED)

        Case $Radio2
            If _IsChecked($Radio4) Then GUICtrlSetState($Radio2, $GUI_UNCHECKED)

        Case $Radio3
            If _IsChecked($Radio1) Then GUICtrlSetState($Radio3, $GUI_UNCHECKED)

        Case $Radio4
            If _IsChecked($Radio2) Then GUICtrlSetState($Radio4, $GUI_UNCHECKED)

    EndSwitch
WEnd


Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Aucun message, mais au moins, il sait à quoi s'en tenir.
Et Puis s'est quand même plus simple que de rajouter un message qu'il faudra valider.

[fredone]

ta solution est complètement valable, mais je travaille sur une appli destiné à des personnes non voyantes, ils doivent donc être prévenus de leurs actions... je vais opter pour la solution du message...

merci à vous, solutionnez par une alternative !

[Tlem]

La solution du message me semble plutôt lourde. Mais comme vous me donnez plus d'infos sur le type d'utilisateur, vous pouvez aussi utiliser le son.
Donc en même temps que le

Code : Tout sélectionner

If _IsChecked($Radio3) Then GUICtrlSetState($Radio1, $GUI_UNCHECKED)

vous pourriez rajouter un beep.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 291, 107, 192, 124)
$Group1 = GUICtrlCreateGroup("Group1", 8, 8, 137, 89)
$Radio1 = GUICtrlCreateRadio("Radio1", 24, 32, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 24, 64, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 152, 8, 129, 89)
$Radio3 = GUICtrlCreateRadio("Radio3", 160, 32, 113, 17)
$Radio4 = GUICtrlCreateRadio("Radio4", 160, 64, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

        Case $Radio1
            If _IsChecked($Radio3) Then _UncheckRB($Radio1)

        Case $Radio2
            If _IsChecked($Radio4) Then _UncheckRB($Radio2)

        Case $Radio3
            If _IsChecked($Radio1) Then _UncheckRB($Radio3)

        Case $Radio4
            If _IsChecked($Radio2) Then _UncheckRB($Radio4)

    EndSwitch
WEnd


Func _IsChecked($Control)
    Return BitAnd(GUICtrlRead($Control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Func _UncheckRB($RadBox)
    GUICtrlSetState($RadBox, $GUI_UNCHECKED)
    Beep(500, 100)
EndFunc

[fredone]

les personnes susceptibles d'utiliser cette application utilisent déjà un lecteur d'écran (qui pilote une synthèse vocale).

malheureusement, un bip n'est pas assez explicite pour signifier à l'utilisateur que l'action a décocher l'autre radio bouton. je préfère parfois être lourd qu'imprécis !

la solution de changer le label du radio bouton est peut être une solution (le label contiendrait alors le message d'avertissement).

Mais votre solution peut fonctionner car si on décoche le premier radio bouton et vu que je vais obliger à une réponse, l'utilisateur aura un message si il persiste !

merci à vous.

[Tlem]

Bon allé, je suis en forme.
Puisqu'il ne peut y avoir qu'un seul choix, le plus simple est peut être de désactiver le premier choix si différent du second, comme cela, pas de son ni de message, mais un choix logique.

Genre:

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 291, 107, 192, 124)
$Group1 = GUICtrlCreateGroup("Group1", 8, 8, 137, 89)
$Radio1 = GUICtrlCreateRadio("Radio1", 24, 32, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 24, 64, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 152, 8, 129, 89)
$Radio3 = GUICtrlCreateRadio("Radio3", 160, 32, 113, 17)
$Radio4 = GUICtrlCreateRadio("Radio4", 160, 64, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

        Case $Radio1
            GUICtrlSetState($Radio3, $GUI_UNCHECKED)

        Case $Radio2
            GUICtrlSetState($Radio4, $GUI_UNCHECKED)

        Case $Radio3
            GUICtrlSetState($Radio1, $GUI_UNCHECKED)

        Case $Radio4
            GUICtrlSetState($Radio2, $GUI_UNCHECKED)

    EndSwitch
WEnd

[fredone]

merci de ton (votre) aide, mais pour une appli destiné au non voyant il faut qu'un action soit explicite, apres avoir cocher un radio bouton on doit entendre coché... et donc si cela coche ou décoche un radio bouton l'utilisateur doit etre prévenu...

donc je vais mixer toutes vos solutions...