[R] ListBox, aperçue image

[yanius]

Bonjour,
Je voulais créer un gestionnaire de stock et créer un aperçue (image) d'un objet. Sachant que la liste des objet sont intégré dans une ListBox, j'ai essayé d'attribuer à un objet une image mais ...
Voici mon bout de code :

► Afficher le texte

Code : Tout sélectionner

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

            Exit

        Case $List1
            $index =  _GUICtrlListBox_GetSelItems($List1)
            $txt = _GUICtrlListBox_GetText($List1, $index)
            $LQD = IniRead($inifile, $txt, "Quantité", "Error")
            $LSMa = IniRead($inifile, $txt, "StockMa", "Error")
            $LSMi = IniRead($inifile, $txt, "StockMi", "Error")
            $LSA = IniRead($inifile, $txt, "Alerte", "Error")
            $LDat = IniRead($inifile, $txt, "Date", "Error")
            $im = IniRead($inifile, $txt, "Pic", "Error")
            GUICtrlSetData($InputQD, $LQD)
            GUICtrlSetData($InputSMa, $LSMa)
            GUICtrlSetData($InputSMi, $LSMi)
            GUICtrlSetData($InputSA, $LSA)
            GUICtrlSetData($InputDat, $LDat)
            GUICtrlSetData($Pic1, $im)

       Case $Button4

            $index =  _GUICtrlListBox_GetSelItems($List1)
            $txt = _GUICtrlListBox_GetText($List1, $index)
            $image = FileOpenDialog("Choisissez l'image de  la marchandise !", @ScriptDir, "Images (*.jpg;*.bmp)| Icônes (*.ico)")
            $low = NChemin($image)
            FileCopy($image, @ScriptDir)
            $r = IniWrite($inifile, $txt, "Pic", $low)

      EndSwitch
WEnd



Func NChemin($vare)
    $mo = StringSplit($vare, "\", 1)
    $n = $mo[0]
    $re = @ScriptDir & "\" & $mo[$n]
    Return $re
EndFunc


 

Mais lorsque le clique sur un objet dans la ListBox, rien ne se passe !
Help me !

[mikell]

Problème de syntaxe, faut relire l'aide

Code : Tout sélectionner

$items =_GUICtrlListBox_GetSelItemsText($List1) 
$txt = $items[1]

ou

$items =  _GUICtrlListBox_GetSelItems($List1)
$index = $items[1]
$txt = _GUICtrlListBox_GetText($List1, $index)

[yanius]

Oui en effet, j'ai essayé d'utiliser cette fonction mais en vain.
Il me met comme erreur :

Code : Tout sélectionner

Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$txt = $items[1]
$txt = ^ ERROR

[mikell]

Code : Tout sélectionner

$txt = ""
$items =_GUICtrlListBox_GetSelItemsText($List1)
For $i = 1 to $items[0]
   $txt &= $items[$i] & @CRLF
Next
MsgBox(0,"", $txt)

[yanius]

Merci pour ta réponse Mikell !

Sauf que concernant la ListBox, je voulais que lorsque l'utilisateur clique sur un élément de la liste, le programme récupère des données dans un fichier .ini pour les consulter en modifiant les Inputs. Sauf que encore une fois, je bloque .
Peux-tu m'aider ?
Voici mon code :

Code : Tout sélectionner

       Case $List1
            $aItems = _GUICtrlListBox_GetSelItems($List1)
            $sItems = ""
            For $iI = 1 To $aItems[0]
                If $iI > 1 Then $sItems &= ", "
                $sItems &= $aItems[$iI]
            Next
            $Txt = _GUICtrlListBox_GetText($List1, $aItems)
            $read = IniReadSection($inifile, $Txt)
            If Not @error Then
                For $i = 2 To $read[0][0]
                    Select
                        Case $i = 2
                            GUICtrlSetData($Input1, $read[$i][1])
                        Case $i = 3
                            GUICtrlSetData($Input2, $read[$i][1])
                        Case $i = 4
                            GUICtrlSetData($Input3, $read[$i][1])
                        Case $i = 5
                            GUICtrlSetData($Input4, $read[$i][1])
                        Case $i = 6
                            GUICtrlSetData($Input5, $read[$i][1])
                    EndSelect
                Next
                MsgBox(0, "Alerte", $Txt)
            EndIf

[mikell]

Heu
Pour toi qui es en train de bosser sur ton code ça parait évident, mais moi je ne comprends pas bien ce que tu veux faire...
Même si j'en vois pas bien le but, un script construit comme ça me semble plus cohérent :

► Afficher le texte

Code : Tout sélectionner

Dim $Inputs[6] = ["", $Input1, $Input2, $Input3, $Input4, $Input5]

    Case $List1
        $aItems = _GUICtrlListBox_GetSelItems($List1)    ; <= récupère les index
         For $i = 1 To $aItems[0]    ; <= pour chaque item,
            $Txt = _GUICtrlListBox_GetText($List1, $aItems[$i])  ; <= récupère le texte
            $read = IniReadSection($inifile, $Txt)    ; <= check le ini
            If Not @error Then            
          For $i = 2 to 6      ; <= fait le tri (enfin je suppose...)
                        GUICtrlSetData($Inputs[$i-1], $read[$i][1])
                   Next
            EndIf
        Next

[yanius]

Oui c'est vrai que j'ai un peu mal expliqué mon problème, voici une image pour mieux m'expliquer :
Je voulais que lorsque l'utilisateur clique sur un élément de la listBox, le programme récupére des donnée dufichier .ini et les rend visible en modifier avec un GuiCtrlSetData les Inputs !

[mikell]

Ah OK
Donc tu peux faire plus simple, avec des ControlCommand, par exemple

Code : Tout sélectionner

$txt = ControlCommand("G-Stock", "", $List, "GetCurrentSelection", "")

[yanius]

Ah je connaissais pas cette fonction ! Merci à toi mikell !

[yanius]

Je met alors en résolu !