Listview "bloquée Résolu

Question

Bon, je fais encore appel au public car je fais face à un problème incompréhensible.

J'ai créé une Listview, tout simplement car je souhaitais une Listbox dont je peux changer la couleur des lignes.
J'ai donc ajusté toutes les propriétés de manière à ce que la Listview ressemble le plus possible à une Listbox (View sur "List", MultiSelect sur False, etc.).

J'ajoute des items dedans, tout se passe bien, je peux les sélectionner.
Mais une des lignes de ma Listview lance une boucle, qui ne doit pas s'arrêter tant que je n'ai pas à nouveau sélectionné une autre ligne de la Listview. J'ai donc ajouté un "My.Application.Doevents", qui me permet de faire tout un tas d'autres opérations telles que cliquer sur des boutons, des Combobox etc.

Pourtant, le seul contrôle qui ne réagit plus est... la listview. J'ai tout essayé, impossible de déclencher à nouveau son événement "click", et je suis sur que le problème vient de la boucle, car en retirant celle-ci, la listview ne se bloque jamais.

Si vous avez une idée, elle sera la bienvenue...

Voici le code de façon très très simplifiée :

Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click

Boucle()

End Sub

Sub Boucle ()
Do while MaBoucle = True
My.Application.DoEvents()
Loop
End Sub

NHenry · Accepted Answer

Bonjour, 

Je dirais, que tant que tu n'es pas sorti du gestionnaire de l'événement Click, il ne peut en générer un autre, d'où ma suggestion du Timer ou du Thread.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

NHenry · Answer

Bonjour, 

Préfère utiliser un timer ou un Thread plutot.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

Bonjour,
comment veux-tu qu'on te réponde, avec uniquement ce que tu montres ?

Il nous faut savoir :
- où et comment est déclarée maboucle
- où et comment tu passes à False sa valeur 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

djedjeska · Answer

Je suis justement en train de me documenter sur les thread, mais j'avoue que ça à l'air bien compliqué.

ucfoutu :

Je ne pense pas que ce soit très important...
Comme je l'ai dit, c'est lorsque je sélectionne une ligne particulière que la boucle s'active (et donc que maboucle prend la valeur "true") et elle est déclarée comme ça :

Public MaBoucle as boolean

le problème ne vient sûrement pas de cette variable

ucfoutu · Answer

Comme je l'ai dit, c'est lorsque je sélectionne une ligne particulière que la boucle s'active (et donc que maboucle prend la valeur "true")

Public MaBoucle as boolean 



le problème ne vient sûrement pas de cette variable

Tiens donc !
Elle passe )à True ===>> OK
Mais tant que pas passée à False ===>> ta boucle Do continue (et à l'infini tant que macoucle = True) !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

djedjeska · Answer

Exact, d'où le DoEvents

cs_Jack · Answer

Salut

"qui ne doit pas s'arrêter tant que je n'ai pas à nouveau sélectionné une autre ligne"
Où se trouve l'arrêt ?
A mon avis, c'est là qu'est le problème.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

djedjeska · Answer

Je n'ai pas besoin d'arrêt, puisqu'il existe le DoEvents. L'arrêt c'est la sélection d'une autre ligne qui donne la valeur False à MaBoucle.
Je vais vous envoyer le code réécrit et plus élaboré :

Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click

If ListView1.SelectedItems(0).Text = "JeLanceLaBoucle" then
MaBoucle = True
Boucle()
Else
MaBoucle = False
Exit Sub
end if

End Sub

'Dans un module :

Public MaBoucle as Boolean

Sub Boucle ()

Do while MaBoucle = True

'Instructions diverses

My.Application.DoEvents()
Loop

End Sub

ucfoutu · Answer

Si (et tu l'as dit) ta variable maboucle est publique et de type boolean, il est simple de faire ceci, quand-même :

Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
  maboucle = Not maboucle
   Do While maboucle = True
     ' .... ce que tu veux 
    My.Application.DoEvents()
   Loop
  End Sub

Non ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

djedjeska · Answer

Ca ne m'a pas l'air plus simple, mais dans tous les cas, l'événement Click ne répond plus.

J'ai essayé de mettre un msgbox en première ligne 

Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
msgbox "Test"

End Sub

Mais je n'ai pas de réaction. Et puis tous les autres contrôles répondent, pourquoi il n'y aurait que la ListView qui ne répond plus ?
Avant de passer à la ListView, j'avais une ListBox normale et je n'avais absolument aucun problème.


Au fait, merci à tous pour vos réponses

djedjeska · Answer

En fait c'est un peu comme si ma ListView était en Enabled = false

Tant que je sélectionne des lignes qui n'envoient pas la boucle, aucun problème, et dès que la boucle est lancée, impossible de changer de ligne, elles ne sont plus surlignées (et cela se comprend facilement : l'événement click ne se lance pas.)

ucfoutu · Answer

Ne me dites surtout pas (j'espère bien que non) que VB.Net est dans ce domaine plus infirme que son aieul VB6 !

Il se trouve que ceci, mis dans l'évènement click de la listview, fonctionne fort bien et fort simplement en VB6, pour autant que l'on clique sur une colonne autre que la toute première 

maboucle = Not maboucle
 Do While maboucle = True
  Label1.Caption = "ccc"
  DoEvents
 Loop
 Label1.Caption = ""

et si je mets (presque) la même chose dans l'évènement itemclik, (presque par ce que là, je n'inverse pas la valeur de ma boucle) ===>>
Do While maboucle = True
  Label1.Caption = "ccc"
  DoEvents
 Loop
 Label1.Caption = ""


La conjugaison des deux fait que j'ai exactement ce que tu souhaites, que l'on clique dans la première colonne ou dans une autre !



A toi d'adapter avec ton super outil (moi, je n'ai que VB6 )
Je pense en particulier à la propriété Caption d'un Label (je ne sais pas ce qu'elle est sous VB.Net).

djedjeska · Answer

Je travaillais avec vba ppt97 avant (qui a un peu l'air de ressembler à vb6 !), et malgré son ancienneté, il était capable de gérer facilement les boucles avec DoEvents.

vb.net en est aussi capable, puisque mon code fonctionnait très bien avec une ListBox, et que les autres contrôles sont accessibles, mais là je sais pas pourquoi, ça bloque 

NHenry : oui j'ai remarqué qu'il ne procédait même pas aux instructions qui suivent "Boucle()"

ListView.Click......

Boucle()

msgbox "test"


Mais je trouve ça quand même incroyable que ça marche avec une ListBox... Je vais continuer à chercher un peu

cs_ShayW · Answer

Salut
Mais une des lignes de ma Listview lance une boucle, qui ne doit pas s'arrêter tant que je n'ai pas à nouveau sélectionné 

Pourquoi as tu besoin de faire une boucle ?

NHenry · Answer

Bonjour, 

Je me pose la question suivante :
Quelle est la finalité de ton code ?
Car peut être qu'une autre technique serait appréciable.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

djedjeska · Answer

Il s'agit d'un petit logiciel de conversation.

La Listview affiche les contacts, en rouge ou en vert selon qu'ils sont connectés ou non. 
Si ils le sont, ma fameuse boucle se lance, et vérifie si la personne a envoyé un message ou non (imbriquer la boucle dans le listview me semble tendancieux... C'est pourquoi je l'ai créée dans un module à part, et encore une fois ça marchait très bien lorsque j'avais une simple ListBox, le seul problème c'était les couleurs des lignes, et les icônes, si jamais je veux en ajouter plus tard)
Si je sélectionne un contact non connecté, la boucle conversation s'arrête (car plus besoin de vérifier que quelqu'un me parle ou non)

Mais lorsque je sélectionne un contact en ligne (ne me demandez pas les procédés réseau, tout est bien prévu), ma listview se bloque, alors même que je peux faire tout un tas d'autres opérations (changer d'avatar, ajouter des textes prédéfinis, et bien sûr envoyer un message à la personne).

Je trouve ce problème incompréhensible

NHenry · Answer

Bonjour, 

Je pense qu'un Timer ou un thread serait plus adapté au besoin et moins gourmand en ressource.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

djedjeska · Answer

D'accord, il va vraiment falloir que je planche dessus alors... Ça à l'air super (parce que j'aimerai développer des application utilisant des instructions parallèles) mais dur à apprendre...

djedjeska · Answer

Bon, j'ai utilisé un backgroundworker, dans lequel j'ai inséré ma procédure "boucle".
Non seulement c'est super simple à utiliser, mais en plus ça a réglé mon problème de blocage...

Merci à tous, et notamment à NHenry pour l'idée du thread

NHenry · Answer

Bon courage alors.

Tu verras, ce n'est pas si compliqué quand tu auras compris.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Utilisateur anonyme · Answer

Bonsoir,

Un petit exemple simple sur le threading pourra t'aider.
Ce n'est peut-être pas la bonne manière de faire mais c'est la mienne.

Ici, on lance un thread dans une boucle infinie et on le stoppe (abort) lors du clic suivant et ainsi de suite. Une information provenant du thread doit être affichée sur un label dans le thread principal (Form1).
Il faut donc aussi gérer les opérations inter-threads. D'où l'utilité d'un délégué.

A tester avec un Label et une ListView

Tu remarquera qu'on utilise l'événement ItemSelectionChanged plutôt que Click de manière à récupérer le paramètre d'événement (e) qui contient des informations sur l'item cliqué.
Ces dernières peuvent être alors passés en paramètre lors du lancement du thread (Start) et être utilisées dans le thread.

Et par pitié, pas de DoEvents 

Option Strict On
Public Class Form1
    'thread à lancer
    Dim t As Threading.Thread
    'délégué avec son paramètre string
    Delegate Sub DelegueClick(ByVal Texte As String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ajout d'éléments
        ListView1.Items.Add("titi")
        ListView1.Items.Add("toto")
        ListView1.Items.Add("tata")
    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
        Label1.Text = "0"
        'si le thread existe et qu'il est actif, on le stoppe
        If t IsNot Nothing Then
            If t.IsAlive Then t.Abort()
        End If
        t = Nothing
        'on lance un nouveau thread (en lui demandant d'exécuter la procédure Job)
        t = New Threading.Thread(AddressOf Job)
        'remarque : la méthiode Start autorise le passage d'un paramètre objet utilisable ensuite dans le thread
        t.Start()
    End Sub

    Private Sub Job()
        Dim x As Integer
        'simulation d'un calcul long et pénible ...
        Do
            Threading.Thread.Sleep(1000)
            'on peut vouloir afficher des informations comme des resultats de calculs pendant l'exécution du thread
            If x 2 Or x 5 Or x = 8 Then
                'exemple d'invocation d'un délégué (opérations inter-threads)
                'ce délégué doit exécuter la procédure ItemClick
                'on peut passer un ou plusieurs paramètres au délégué ici je passe x (en string)
                If Me.InvokeRequired Then
                    Me.Invoke(New DelegueClick(AddressOf ItemClick), x.ToString)
                End If
            End If
            x += 1
        Loop
    End Sub

    'procédure appelée par le délégué avec le paramètre string que l'on peut afficher dans le label
    Private Sub ItemClick(ByVal Texte As String)
        Label1.Text = Texte
    End Sub
End Class

Bonne nuit.

djedjeska · Answer

Tu remarquera qu'on utilise l'événement ItemSelectionChanged plutôt que Click de manière à récupérer le paramètre d'événement (e) qui contient des informations sur l'item cliqué. 

J'ai passé je sais pas combien de temps à chercher comment récupérer l'index de l'item sélectionné, en utilisant l'événement ItemSelectionChanged 

J'ai toujours eu une erreur, et j'en ai donc déduit que lors de cet événement l'index de la ligne sélectionnée n'était pas encore "actualisé"... C'est pour cette raison que j'utilise l'événement click, qui lui me permet de récupérer l'index comme ceci :

ListView1.SelectedItems(0).Index

J'ai effectivement essayé d'utiliser le paramètre (e) mais sans succès...

djedjeska · Answer

Ah non !! J'utilisais le SelectedIndexChanged, est-ce très différent ?

Utilisateur anonyme · Answer

ItemSelectionChanged s'exécute 2 fois (si un autre item est déjà sélectionné, une seule fois sinon) pour celui qui est désactivé et l'autre fois pour celui qui est sélectionné.
Utilises ensuite IsSelected pour déterminer lequel est activé.
Bonne soirée.

djedjeska · Answer

Merci bonne soirée !

cs_Jack · Answer

@ Banana32 : Cet exemple est parfait et bien commenté.
Pour ma part, débutant averti en .Net (*), j'ai enfin trouvé là un exemple concret.
Merci, j'ai appris quelque chose.

Pourquoi ne le publierais-tu pas en tant que <Snippet> ?
Je pense que cela pourrait en éclairer bien d'autres.
Merci d'avance.



(*) .Net : Il a fallu attendre la version 2011 de Visual Studio pour pouvoir travailler intelligemment comme on le faisait avec le mode SDI de l'IDE de VB6.
Faudra t-il encore attendre 7 ans pour que les fenêtres d'options soient redimensionnables ?
On dirait que chez Microsoft, personne ne se sert des outils qu'ils développent eux mêmes.
VB6 Power !


nb : "ici je passe x (en string)" : Et les parents de x sont au courant ?
(je sors)

Utilisateur anonyme · Answer

Bonsoir Jack et merci.
Cet exemple est parfait.
Et bien non justement car après avoir répondu au demandeur sur la double exécution de l'événement ItemSelectionChanged, je me suis rendu compte que mon exemple était faux. Il manque justement le test e.IsSelected pour éviter de lancer un thread pour rien  (celui de l'item désélectionné).

Le gros problème de ce forum, c'est qu'il est impossible d'éditer nos messages pour les corriger.
J'ai remarqué au fil de certains sujets ici ou là, que sans cette option, lorsque l'aidant corrige un code dans un message suivant, le demandeur, lancé sur une fausse piste, peut se sentir complètement perdu.

Et merci encore à toi pour ton investissement personnel, j'apprends pas mal de toi aussi sur excel comme quoi 

Et oui, les parents de x sont au courant depuis longtemps 
(je sors aussi)

Bien à toi.

Listview "bloquée

27 réponses

Votre réponse

Discussions similaires