[R] Tableau cliquable

[ricky]

Hello,

voilà ce que j'aimerais faire, j'ai un tableau. J'affiche chaque ligne dans une fenetre et à côté de chaque ligne une case à cocher que je puisse cocher ce que je veux (bloquer à un seul choix ou plusieurs). J'aimerais avoir en sortie un tableau avec ce que j'ai coché.

Comme puis-je faire cela?

Merci d'avance pour votre aide

[legend]

c'est mal exprimé mais ça se fait avec le ménagement gui.
une gui contenant des radio/checkbox (voir guicreate et guictrlcreate . . .)
tu peut voir l'aide autoit ou le tuto sitezero (je suis pas sur qu'il contient cela)
le reste c'est des boucles des variables/array.
bonne chance

[TT22]

Ce tableau, il est sur Excel ?

[sablier94]

Salut,

Va voir du côté de ListView

Pour ne pouvoir en cocher qu'une seule, il faudra compter le nombre de cases cochées dans un boucle pour vérifier, car je ne suis pas sûr que tu peux faire en sorte d'en sélectionner un seul.

A+

[mikell]

legend n'est pas très clair dans ses explications mais c'est l'idée

Si le tableau n'a que des lignes, faire des radio ou checkbox puis une boucle de vérification
Si le tableau a des lignes et des colonnes, tu peux aussi faire des labels recensées dans une array à 2 dimensions (lignes et colonnes)

[ricky]

Je me suis mal exprimé. Par tableau, c'est un tableau 1D ou 2D venant par exemple depuis la fonction IniReadSection et ensuite je l'affiche, voici un exemple :

2011-06-08_07-57.png (2.34 Kio) Vu 1602 fois

Pas besoin de l'arborescence.

Est-ce plus clair?

[mikell]

Ah, c'est pas un tableau c'est un Treeview
Donc cherche dans les fonctions _GUICtrlTreeView

[ricky]

Justement, je ne veux pas le treeview.

[zeshrek]

un truc comme ca, ca t'irait ?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTreeView.au3>

#include <File.au3>
#include <Array.au3>

Dim $FichierIni, $Sections[1][2]
$IniFile = "fichier.ini"
_FileReadToArray($IniFile, $FichierIni)


$Form1 = GUICreate("Choisissez votre UT", 216, 272, 391, 228) 
Dim $TreeView[$FichierIni[0] + 1][2]
$Tree = GUICtrlCreateTreeView(16, 32, 185, 185, BitOR($TVS_HASBUTTONS, $TVS_DISABLEDRAGDROP, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_CHECKBOXES), $WS_EX_CLIENTEDGE)
$TreeView[0][0] = GUICtrlCreateTreeViewItem($IniFile, $Tree)

For $i = 1 To $FichierIni[0]
    If StringInStr($FichierIni[$i], "[") Then ; on crée les sections
        $TreeView[$i][0] = GUICtrlCreateTreeViewItem(StringReplace(StringReplace($FichierIni[$i], "[", ""), "]", ""), $TreeView[0][0])
        $NumSection = $i
    ElseIf StringInStr($FichierIni[$i], "=") Then ; on crée les valeurs
        $Valeur = StringSplit($FichierIni[$i], "=")
        $TreeView[$i][0] = GUICtrlCreateTreeViewItem($Valeur[1], $TreeView[$NumSection][0]) ; on affiche le nom de la valeur
        $TreeView[$i][1] = $Valeur[2] ; et on stocke son contenu
    EndIf
Next

GUISetState(@SW_SHOW)

;Créer les boutons Valider et Annuler
$Btn1 = GUICtrlCreateButton("Valider", 24, 224, 81, 25, 0)
$Btn2 = GUICtrlCreateButton("Annuler", 120, 224, 73, 25, 0)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg


        Case $GUI_EVENT_CLOSE, $Btn2
            Exit


        Case $Btn1
            $msg = "vous avez sélectionné les entrées suivantes du fichier " &$FichierIni & @CRLF
            For $i = 1 To $FichierIni[0]
                If BitAND(GUICtrlRead($TreeView[$i][0]), $GUI_CHECKED) = $GUI_CHECKED Then
                    $msg = $msg & GUICtrlRead($TreeView[$i][0],1) & " = " & $TreeView[$i][1] & @CRLF
                EndIf
            Next
            MsgBox("0", "Items sélectionnés", $msg)

            Exit

    EndSwitch
WEnd
 

Edit, j'avais pas vu que tu voulais pas le treeview.
Ceci dit, pourquoi tu nous montre un treeview en disant que c'est ce que tu veux mais que tu veux pas de treeview ? c'pas clair là...

[ricky]

Merci pour ton aide et ton code, mais en montrant l'îmage avec la treeview était la simplement pour montrer le principe de la case à cocher, car ou je me suis mal exprimé et/ou certains n'avaient pas compris ma requête.

J'ai trouvé une solution :

2011-06-08_11-36.png (11.59 Kio) Vu 1577 fois

Comment faire pourquoi qu'il n'y aie pas la barre et qu'on voie le texte complet?

Merci d'avance pour votre aide.

[sablier94]

C'est ce que je disais, utilise un ListView avec un style (que tu trouvera sur le forum en cherchant) pour mettre des cases à cocher. Il faut que tu agrandisse la taille de la colonne pour qu'elle prenne toute la taille.

Edit : Autrement, si tu veux qu'on puisse en séléctionner seulement une, tu n'es pas obligé d'utiliser des cases à cocher et tu peux regarder la ligne qui a été séléctionnée avec guictrlread.

A+

[timmalos]

Et si il veut en selectionner plusieurs, il peut egalement le faire SANS boites a cocher.
Pour la largeur de la colonne, il existe une function 'setcolumwidth' quelque chose comme ca, a regarder;

[mikell]

Vraiment difficile de savoir ce que tu veux exactement ...
ça c'est des checkbox, et ça correspond à la description que tu donnes dans ton premier post :"J'affiche chaque ligne dans une fenetre et à côté de chaque ligne une case à cocher que je puisse cocher ce que je veux (bloquer à un seul choix ou plusieurs)"

file.jpg (4.9 Kio) Vu 1562 fois

[ricky]

Oui, mikell, j'étais parti dans cette voie, mais maintenant j'ai trouvé plus simple, pourquoi me compliquer avec des cases à cocher si je veux qu'un seul? Donc plus de cases à cocher.

Je suis parti sur le listview, mais maintenant je suis bloqué à la taille de la colonne et je ne vois pas comment la changer.

il existe une function 'setcolumwidth' quelque chose comme ca, a regarder;

J'ai rien trouvé, c'est bien ça le problème.

[sablier94]

Tu peux utiliser ceci :

Code : Tout sélectionner

GUICtrlSendMsg($TaListView, $LVM_SETCOLUMNWIDTH, 0, 170) ;On redimensionne la 1ère colonne à 170px

[zeshrek]

En admettant que tu veuilles que la colonne zero (1ere colonne) du listview ($ListView1 fasse 150 pixels de large :

Code : Tout sélectionner

GUICtrlSendMsg([color=#00FF00]$ListView1[/color], $LVM_SETCOLUMNWIDTH, [color=#FF0000]0[/color], [color=#0000FF]150[/color])

Argl !!! grilled parceque j'ai pris le temps de mettre des couleurs !

[ricky]

Parfait, ça marche. Merci beaucoup.