[R] Une seule CheckBox Checked

[Kagami]

Bonsoir,

Je voudrais arriver à faire que, quand la $CheckBox1 est coché, la $CheckBox2 se décoche s'y elle y était. Et inversement.
Et, au passage, je voudrais que quand la $CheckBox2 "English" est checked, et qu'on clique sur le $Button1, on passe de la $Form1 "GUI Fr" à la $Form2 "GUI En"
J'ai essayé de faire:

Code : Tout sélectionner

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
                Case $Button1
            If GuiCtrlRead($CheckBox2, $GUI_CHECKED) = 1 Then
                GUISetState(@SW_HIDE)
                GUISwitch($Form2)
                GUISetState(@SW_SHOW)
            ElseIf GuiCtrlRead($CheckBox1, $GUI_CHECKED) = 1 Then
                GUISetState(@SW_HIDE)
                GUISwitch($Form1)
                GUISetState(@SW_SHOW)
            Endif
        Case $CheckBox2
            If GuiCtrlRead($CheckBox2, $GUI_CHECKED) Then
                GUICtrlSetState($CheckBox1, $GUI_UNCHECKED)
            ElseIf GuiCtrlRead($CheckBox2, $GUI_CHECKED) Then
                GUICtrlSetState($CheckBox1, $GUI_UNCHECKED)
            Endif
    EndSwitch
WEnd

Et d'autres solutions mais j'ai toujours pas réussi.
Je vous demande donc de m'aider. Merci de vos réponses.
Kagami

[bloodwolff]

Une checkbox qui se décoche quand une autre est coché ce n'est pas un bouton radio?
Exemple tiré de la doc officiel

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $radio1, $radio2, $msg
    GUICreate("My GUI radio") ; will create a dialog box that when displayed is centered

    $radio1 = GUICtrlCreateRadio("Radio 1", 10, 10, 120, 20)
    $radio2 = GUICtrlCreateRadio("Radio 2", 10, 40, 120, 20)
    GUICtrlSetState($radio2, $GUI_CHECKED)

    GUISetState()      ; will display an  dialog box with 1 checkbox

    ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
                MsgBox(64, 'Info:', 'You clicked the Radio 1 and it is Checked.')
            Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
                MsgBox(64, 'Info:', 'You clicked on Radio 2 and it is Checked.')
        EndSelect
    WEnd
EndFunc   ;==>Example

[Kagami]

Oui, mais imaginons, j'ai 6 boutons Radio et je veux qu'ils soit divisés en trois catégories:

Code : Tout sélectionner

$Label1 "Langage du Logiciel:"
$Radio1 "Français" Checked
$Radio2 "English" UnChecked

$Label2 "Message d'accueil:"
$Radio1 "Yes" Checked
$Radio2 "No" UnChecked

$Label3 Ouvrir l'aide automatiquement:"
$Radio1 "Yes" UnChecked
$Radio2 "No" Checked

Hé bien ça, je ne peux pas car un seul $Radio peut-être Checked.
Et j'ai déjà un logiciel où il y a ce que je veux faire avec des CheckBox.

Sinon, pour l'alternance des $Form vous n'avez pas d'idées?

Merci de m'avoir répondu rapidement.

[bloodwolff]

Éditer : réponse inutile

[pop45]

Met les dans des groupes!

► 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=
$Form3 = GUICreate("Form3", 450, 179, 261, 192)
$Group1 = GUICtrlCreateGroup("Group1", 20, 30, 131, 131)
$Radio1 = GUICtrlCreateRadio("Radio1", 50, 60, 101, 31)
$Radio2 = GUICtrlCreateRadio("Radio2", 50, 90, 101, 31)
$Radio3 = GUICtrlCreateRadio("Radio3", 50, 120, 81, 31)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 160, 30, 131, 131)
$Radio4 = GUICtrlCreateRadio("Radio4", 180, 50, 101, 41)
$Radio5 = GUICtrlCreateRadio("Radio5", 180, 80, 81, 41)
$Radio6 = GUICtrlCreateRadio("Radio6", 180, 110, 71, 31)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Group3", 300, 30, 121, 131)
$Radio7 = GUICtrlCreateRadio("Radio7", 320, 60, 51, 41)
$Radio8 = GUICtrlCreateRadio("Radio8", 320, 90, 61, 31)
$Radio9 = GUICtrlCreateRadio("Radio9", 320, 130, 51, 31)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

    EndSwitch
WEnd

 

[Kagami]

Merci Pop45, mon premier problème est réglé.
Aurais-tu une réponse au deuxième pour interférer les GUI?

[bloodwolff]

Normalement votre code devrait marcher mais il y a un petit problème de syntaxe

► Afficher le texte

Code : Tout sélectionner

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
                Case $Button1
            If GuiCtrlRead($CheckBox2[color=#FF0000]) = $GUI_CHECKED[/color] Then
                GUISetState(@SW_HIDE)
                GUISwitch($Form2)
                GUISetState(@SW_SHOW)
            ElseIf GuiCtrlRead($CheckBox1[color=#FF0000]) = $GUI_CHECKED[/color] Then
                GUISetState(@SW_HIDE)
                GUISwitch($Form1)
                GUISetState(@SW_SHOW)
            Endif

    EndSwitch
WEnd

[Kagami]

Ca ne marche toujours pas...
C'est bizarre.
Ma $Form2 est identique à la $Form1 sauf qu'elle est en Anglais.
Donc quand on mets le $Radio2 "English" et qu'on clique sur le $Button1 "Utiliser les nouveaux paramètres" ça devrait changer de GUI...
Je voit pas ce qui ne va pas =/

[bloodwolff]

Tu peux toujours modifier les controls si les gui sont identiques

► Afficher le texte

Code : Tout sélectionner

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
                Case $Button1
            If GuiCtrlRead($CheckBox2) = $GUI_CHECKED Then
        GUICtrlSetData ( controlID, "text_anglais")
        GUICtrlSetData ( controlID, "text_anglais")
        GUICtrlSetData ( controlID, "text_anglais")
        GUICtrlSetData ( controlID, "text_anglais")
        GUICtrlSetData ( controlID, "text_anglais")
            ElseIf GuiCtrlRead($CheckBox1) = $GUI_CHECKED Then
       GUICtrlSetData ( controlID, "text_français")
       GUICtrlSetData ( controlID, "text_français")
       GUICtrlSetData ( controlID, "text_français")
       GUICtrlSetData ( controlID, "text_français")
       GUICtrlSetData ( controlID, "text_français")
            Endif

    EndSwitch
WEnd

Ps: Tu avais bien modifié les $CheckBox par les nouveaux Id des boutons radio ?

[Kagami]

J'avais pensé à cette solution mais ça me fait 91 Labels, 14 Check Box, 4 Radio Box, 12 Boutons, 3 Edit à modifier...
Donc si ce que je demande pourrait marcher ça m'arrangerai et ça plomberai moins mon logiciel <.<
Mais c'est bizarre car je m'étais déjà servi de cette option auparavant et tout avait très bien marcher. La seule différence c'est qu'il y avait juste un bouton à cliquer et non un Radiobox à activer en plus.

EDIT: Oui je les avait modifiés

[bloodwolff]

91 Labels, 14 Check Box, 4 Radio Box, 12 Boutons, 3 Edit

Tu dois quand même les créer en double , la tu aurais qu'une fenêtre à créer au lieu de 2 donc sa compenserait
Sinon tu as testé de mettre une msgbox pour situé le problème ? au moins savoir si cela ce rend dans le if

[Kagami]

Comment ça?

[bloodwolff]

Tu lance le script comme sa , au moins après on sait si le problème vient de l'intérieur des If où d'ailleur

► Afficher le texte

Code : Tout sélectionner

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
                Case $Button1
            If GuiCtrlRead($CheckBox2) = $GUI_CHECKED Then
              msgbox(0,"","1")
            ElseIf GuiCtrlRead($CheckBox1) = $GUI_CHECKED Then
              msgbox(0,"","2")
            Endif

    EndSwitch
WEnd

[Kagami]

Aucune des deux MsgBox ne s'affichent

[bloodwolff]

Merci de poster le reste du script alors

Ps: Es-ce que tu as mis les même variable pour les id des controls des 2 Gui ?

[Kagami]

Hum... Je sais pas si j'ai le droit de poster ce genre de script... Ce n'est pas un Bot, c'est un Hack.
Si j'ai le droit, dis le moi, sinon, je te passerai mon script par MP.
Les variables ont le même nom dans les deux GUI.

[bloodwolff]

Envoit moi le script par mail , regarde dans la signature pour + de détail.
Mais d'après ta réponse à ma question je suis sur à 90% du problème

[Kagami]

Voilà, je t'ai envoyé mon script. J'attend ta réponse.

[bloodwolff]

Je n'ai pas testé le script mais le problème était celui que je pensais
Ton programme crée la première Gui
Il attribue des id au control, il l'Affiche
Après il crée la 2e Gui mais il attribue le id de ses contrôles sur les même variable que la première Gui et donc les effaces ( plus dure à comprendre ici)
Donc sa tu n'as plus aucun moyen d'identifier les contrôles de la première Gui car tu as les id de la deuxième Gui

En gros il te reste 2 solutions

La première
Créé une seule Gui et renommée les controles avec guictrlsetdata

La deuxième
Modifier Tous les noms des variables de la deuxième Gui et créer une 2e boucle au programme avec les nouvelles variables

Difficile à comprendre , si tu as des question j'esserai de mieux m'exprimer

[Kagami]

Non, c'est bon, je pense avoir compris.
Si j'y parviens, je mettrai le sujet en résolu demain.
Là je vais dormir ^^
Bonne nuit.