[R] Choix multiples avec CheckBox

[EzioGr38]

Bonjour,

Je suis en train de réaliser un projet et je dois cocher différentes checkbox (checkbox à cocher choisit par l'utilisateur) qui contiennent les noms des modèles pour ensuite afficher les équipements respectifs des modèles sélectionnés

Mon probème se pose sur mon bouton valider, je voudrais avoir un script qui me valide les modèles sélectionnés par l'utilisateur pour afficher mes équipements dans une nouvelle fenêtre

Merci

[mikell]

Sujet déplacé dans l'aide générale

[TomAijerrie]

Il faut déclarer les Checkboxs dans une variable tableau, comme ci-dessous :

Code : Tout sélectionner

;pour 10 Checkboxs
Global $Checkbox[2][10] = [["Texte1","Texte2","Texte3","...","...","...","...","...","...","Texte10"]]

For $i = 0 To 9
    $Checkbox[1][$i] = GUICtrlCreateCheckbox($Checkbox[0][$i], 10, 15 + 25 * $i, 116, 26)
Next
 

Ensuite, quand le bouton OK est cliqué, on regarde toutes les Checkboxs une par une pour voir si elles sont cochées, avec GUICtrlRead() :

Code : Tout sélectionner

For $i = 0 To 9
    If GUICtrlRead($Checkbox[1][$i]) = 1 Then
        MsgBox(64,"Infomation","La case " & $Checkbox[0][$i] & " est cochée.")
    EndIf
Next
 

Ce qui au final ressemble à ça :

► Afficher le textePour 10 cases

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 389, 442, 192, 124)
Global $Checkbox[2][10] = [["Texte1","Texte2","Texte3","...","...","...","...","...","...","Texte10"]]

For $i = 0 To 9
    $Checkbox[1][$i] = GUICtrlCreateCheckbox($Checkbox[0][$i], 10, 15 + 25 * $i, 116, 26)
Next
Global $BpOk = GUICtrlCreateButton("Valider", 15, 400, 120, 25)
Global $BpAnnuler = GUICtrlCreateButton("Annuler", 160, 400, 120, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
    Case $BpAnnuler
        Exit
    Case $BpOk
        For $i = 0 To 9
            If GUICtrlRead($Checkbox[1][$i]) = 1 Then
                MsgBox(64,"Infomation","La case " & $Checkbox[0][$i] & " est cochée.")
            EndIf
        Next
 EndSwitch
WEnd

 

Code trouvé grâce à KODA et AutoitHelp

[TomAijerrie]

Balise [R] si resolu
Merci