[R] Récupérer la valeur d'un item d'une ListView.

[matcarto]

Bonjour à tous,

Je bloque en ce moment sur un script qu'on m'a demandé de réaliser...

Il affiche une ListView où sont listés des prénoms provenant d'un fichier texte. J'aimerais que, lors de la sélection, un label prenne la valeur de l'item sélectionné.
Malheureusement, avec mon code, il n'y a que des nombres qui s'affichent.

Screen :



Je vous joins mon code et la liste des prénoms.

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <ListViewConstants.au3>
#NoTrayIcon

#Region ### START Koda GUI section ###
Global $Form1 = GUICreate("Gestionnaire", 819, 520, 192, 124)
Global $Tab = GUICtrlCreateTab(8, 8, 802, 504)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")

Global $tab1 = GUICtrlCreateTabItem("Test") ;Premier Onglet
$List = GUICtrlCreateListView("Prénom", 50, 60, 300, 380) ;Création de la liste
GUICtrlSendMsg($List, $LVM_SETCOLUMNWIDTH, 0, 768)
$file = FileOpen("Liste.txt", 0)
Dim $LineTab[1] ; on crée un tableau pour stocker les lignes
$LineNb = 0
While 1 ; donc on fait une boucle
   $line = FileReadLine($file) ; ou on lit une ligne
   If @error = -1 Then ExitLoop ; si y a une erreur c'est qu'on est a la fin du fichier
   If $line <> "" Then
      $LineNb = $LineNb + 1 ; on incrémente le compteur
      ReDim $LineTab[$LineNb + 1] ; comme on ne sait pas combien il y a de lignes, on redimentionne le tableau ou on les stocke
      $LineTab[$LineNb] = GUICtrlCreateListViewItem($line, $List) ; et on injecte la ligne dans la liste
   EndIf
WEnd

Global $Label14 = GUICtrlCreateLabel("Elève :", 384, 60, 52, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Tahoma")
Global $Label15 = GUICtrlCreateLabel("", 464, 61, 162, 22) ;Création du label prenant le nom de l'élève
GUICtrlSetFont(-1, 12, 400, 0, "Tahoma")

GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

List() ;Apelle de la fonction détectant la selection d'un item de la liste

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


Func List()
Local $selection = 0
Local $prenomliste

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

$selection = GUICtrlRead($List) ;On lit l'item sélectionné
If $selection <> 0 Then ;On vérifie qu'il ait bien sélection
    If $selection <> $prenomliste Then ;On regarde si la selection a changée (pour ne pas faire clignoter le label)
    GUICtrlSetData($Label15,$selection) ;On applique la valeur de l'item au label15
    $prenomliste = $selection ;On met a jour la valeur de la selection précédente
    EndIf
EndIf
WEnd
Endfunc

Je pense que mon code doit contenir un certain nombre d'erreur mais je suis encore très débutant.

Merci d'avance.

[Tlem]

Il existe sur le forum, de nombreux code qui utilisent des ListViews, dont certains font exactement ce que vous recherchez.
Pourquoi ne pas vous en inspirer ?

[matcarto]

Merci de votre réponse.

J'ai déjà fait de nombreuses recherches mais peut-être que je n'utilisais pas les bons mots-clés...

[Tlem]

Avec http://www.autoitscript.fr/forum/search ... Rechercher j'arrive à trouver ceci : http://www.autoitscript.fr/forum/viewto ... iew#p26196

[mikell]

Et on se tape un include<GuiListView.au3> de 350 Ko et 7700 lignes (sans compter les sous-includes...) ^^

Marrant, personne pense jamais à ça :

Code : Tout sélectionner

$selection = GUICtrlRead($List) ;On lit l'item sélectionné
If $selection <> 0 Then ;On vérifie qu'il ait bien sélection
    If $selection <> $prenomliste Then ;On regarde si la selection a changée (pour ne pas faire clignoter le label)
[color=#FF0000]      $index = ControlListView("Gestionnaire", "", $List, "GetSelected")
     $item = ControlListView("Gestionnaire", "", $List, "GetText", $index)[/color]
     GUICtrlSetData($Label15,[color=#FF0000]$item[/color]) ;On applique la valeur de l'item au label15
     $prenomliste = $selection ;On met a jour la valeur de la selection précédente
   EndIf
EndIf
 

EDIT
La vache... je viens de compter, pour l'include<GuiListView.au3> + ses sous-includes, on dépasse 1 Mo
ça fait peur

[matcarto]

Et on se tape un include<GuiListView.au3> de 350 Ko et 7700 lignes (sans compter les sous-includes...) ^^

Marrant, personne pense jamais à ça :

Code : Tout sélectionner

$selection = GUICtrlRead($List) ;On lit l'item sélectionné
If $selection <> 0 Then ;On vérifie qu'il ait bien sélection
    If $selection <> $prenomliste Then ;On regarde si la selection a changée (pour ne pas faire clignoter le label)
[color=#FF0000]      $index = ControlListView("Gestionnaire", "", $List, "GetSelected")
     $item = ControlListView("Gestionnaire", "", $List, "GetText", $index)[/color]
     GUICtrlSetData($Label15,[color=#FF0000]$item[/color]) ;On applique la valeur de l'item au label15
     $prenomliste = $selection ;On met a jour la valeur de la selection précédente
   EndIf
EndIf
 

Merci beaucoup !!!!!

Sujet résolue.