[R] Problème avec _GUICtrlListView_GetItemChecked()

[TT22]

Bonjour à tous,
Voilà mon problème :
Dans un programme que je suis entrain de développer, l'utilisateur doit à un moment choisir un fichier puis dans ce fichier sélectionner des lignes. Pour la liste, j'ai utilisé des ListView avec des CheckBox.
Et mon problème et que je n'arrive pas à savoir si une ligne à été cochée
La fonction _GUICtrlListView_GetItemChecked() me retourne toujours "False".

Voici mon code :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <File.au3>
#include <GuiListView.au3>
$File = FileOpenDialog("Choisisez un fichier :",@UserProfileDir,"Tous les fichiers (*.*)")
$Gui2 = GUICreate("Lignes",500,500)
$ListView = GUICtrlCreateListView("",0, 0, 500, 400)
_GUICtrlListView_SetExtendedListViewStyle($ListView, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES))
_GUICtrlListView_AddColumn($ListView, "Ligne", 500)
$ButtonLunch = GUICtrlCreateButton("Choisir",20,420,460,60)
SplashTextOn("Script","Chargement des lignes..."&@CRLF&"Si votre fichier est long, cette opération peut prendre quelques secondes !",600,70)
For $i = 1 To _FileCountLines($File) Step 1
    _GUICtrlListView_AddItem($ListView,FileReadLine($File,$i),0)
Next
SplashOff()
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        $Ok = False
        ExitLoop
    Case $ButtonLunch
        $Ok = True
        ExitLoop
    EndSwitch
WEnd
GUIDelete($Gui2)
If $Ok = True Then
    SplashTextOn("Script","Préparation du fichier..."&@CRLF&"Si votre fichier est long, cette opération peut prendre quelques secondes !",600,70)
    $ListViewReturn = ""
    For $i = 1 To (_FileCountLines($File)) Step 1
        If _GUICtrlListView_GetItemChecked($ListView,$i-1) Then
            $ListViewReturn = $ListViewReturn&FileReadLine($File,$i)&@CRLF
        EndIf
    Next
    SplashOff()
    MsgBox(64,"Info",$ListViewReturn)
EndIf

Je ne vois pas où est l'erreur et ça fait presque deux heures que je cherche (dans l'aide et sur le forum) et je ne trouve rien

Donc, merci d'avance à ceux qui m’aideront...

[matwachich]

J'ai aussi longtemps galérer sur ce problème! Et qui m'a sauvé: F1!

Code : Tout sélectionner

Parameters

$hWnd [b]Handle[/b] to the control 
 

Utilise GuiCtrlGetHandle pour avoir le handle de ton listview, et pas le Control ID retourné par GuiCtrlCreateListView

[mikell]

Et peut-être aussi changer le GuiDelete de place, parce que si j'étais le _GUICtrlListView_GetItemChecked, je serais bien emm*dé avec une gui supprimée, et dégoûté j'enverrais false

[TT22]

Oui, merci à vous deux ça marche

@ matwachich : Merci, j'aurais pu le chercher longtemps celui-là

@ mikell : Honte sur moi

Donc, voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <File.au3>
#include <GuiListView.au3>
$File = FileOpenDialog("Choisisez un fichier :",@UserProfileDir,"Tous les fichiers (*.*)")
$Gui2 = GUICreate("Lignes",500,500)
$ListView = GUICtrlCreateListView("",0, 0, 500, 400)
_GUICtrlListView_SetExtendedListViewStyle($ListView, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES))
_GUICtrlListView_AddColumn($ListView, "Ligne", 500)
$ButtonLunch = GUICtrlCreateButton("Choisir",20,420,460,60)
SplashTextOn("Script","Chargement des lignes..."&@CRLF&"Si votre fichier est long, cette opération peut prendre quelques secondes !",600,70)
For $i = 1 To _FileCountLines($File) Step 1
    _GUICtrlListView_AddItem($ListView,FileReadLine($File,$i),0)
Next
SplashOff()
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        $Ok = False
        ExitLoop
    Case $ButtonLunch
        $Ok = True
        ExitLoop
    EndSwitch
WEnd
If $Ok = True Then
    SplashTextOn("Script","Préparation du fichier..."&@CRLF&"Si votre fichier est long, cette opération peut prendre quelques secondes !",600,70)
    $ListViewReturn = ""
    For $i = 1 To (_FileCountLines($File)) Step 1
        If _GUICtrlListView_GetItemChecked([color=#FF0000][b]GUICtrlGetHandle([/b][/color]$ListView[color=#FF0000][b])[/b][/color],$i-1) Then
            $ListViewReturn = $ListViewReturn&FileReadLine($File,$i)&@CRLF
        EndIf
    Next
    SplashOff()
    MsgBox(64,"Info",$ListViewReturn)
    [color=#FF0000][b]GUIDelete($Gui2)[/b][/color]
EndIf

[mikell]

Et je suppose que tu veux concaténer là...

Code : Tout sélectionner

$ListViewReturn [b]&=[/b] $ListViewReturn&FileReadLine($File,$i)&@CRLF