Discussion :

[iOops]

Bonsoir,

je rencontre un problème avec datagridview.Rows.clear() (Frameworkk .Net 3.5) que je n'arrive pas à solutioner.

Je dispose d'un treeview que je charge à l'aide d'un fichier. Dès que je clique sur un bouton "tester" je parcours chaque noeux du treeview et j'ajoute une ligne au tableau. Donc si j'ai "12 noeux" au treeview je dois avoir 12 lignes au tableau.

Treeview :

nodes(0)
nodes(0).nodes(0)
nodes(0).nodes(1)
....
nodes(0).nodes(11)

Salle_A
|______ Ordinateur_1
|______ Ordinateur_2
|______ Ordinateur_3

|______ Ordinateur_12

J'obtiens le résultat souhaité. Sauf que je suis confronté à un comportement aléatoire. Je m'explique, si je clique 8 fois sur le bouton "tester", le tableau me charge correctement les 12 lignes correspondantes au 12 noeux du treeview. Au 9è click ou 10è (celà peux être plus ou moins de fois), le tableau affiche les 12 lignes correctement et y ajoute à nouveau ces 12 même lignes. Je ne comprend pas pourquois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub btn_tester_Click()
   load_tv()
   check_ordi()
End Sub
 
Private Sub check_ordi()
 
        If dgv.Rows.Count = 0 Then
 
            Dim i As Integer = 0
            While i < tv.Nodes(0).Nodes.Count
               //appel de la fonction pour ajouter une ligne au tableau
                i += 1
             End While
 
         Else
              dgv.Rows.clear()
              check_ordi()
          End if
 
End Sub

Pour comprendre le problème j'affiche la valeur de i dans un label. Je peux donc constater son incrémentation. Par exemple, je clique 8 fois sur le bouton "tester", i s'incrémente bien de 0 à 11 (11 étant toujours le maximun). Au neuvième click, i passe de 0 à 11 puis est réinitialisé à 0 à ce moment là, le programme àjoute donc 12 nouvelles lignes au tableau et je me retrouve donc avec 2 fois 12 lignes.

Je ne comprend pas à quel moment i est réinitialisé à 0 alors que j'atteinds tv.Nodes(0).Nodes.Count.

Code complet :

Note Lorsque je teste Me.isLocal = False.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Private Sub check_ordi()
        Dim i As Integer = 0
 
        If dgv.Rows.Count = 0 Then
 
            While i < tv.Nodes(0).Nodes.Count
                lbl_count.Text = i
                If is_online(tv.Nodes(0).Nodes(i).Name) Then
 
                    If Me.isLocal Then
                        run_process(Me.tv.Nodes(0).Nodes(i).Name)
                        import_csv()
                        Me.load_gdv()
                    Else
 
                        dgv_ordi(Me.tv.Nodes(0).Nodes(i).Name, i)
 
                    End If
                    tv.Nodes(0).Nodes(i).BackColor = Color.GreenYellow
                    dgv.Rows(i).DefaultCellStyle.BackColor = Color.GreenYellow
                Else
                    dgv_ordi(Me.tv.Nodes(0).Nodes(i).Name, i)
 
                    tv.Nodes(0).Nodes(i).BackColor = Color.LemonChiffon
                    dgv.Rows(i).DefaultCellStyle.BackColor = Color.LemonChiffon
                End If
                Application.DoEvents()
                i += 1
            End While
 
        Else
 
            dgv.Rows.Clear()
            Me.check_ordi()
        End If
End Sub
 
 
' cette procédure va ajouter seulement une ligne au tableau :
' je regarde la valeur du noeux (Nodes(0).Nodes(i).Name)
' et lance une recherche dans un dictionaire contenant une liste 
' d'ordinateur chargés à partir d'un fichier
Private Sub dgv_ordi(ByVal Ordip As String, ByVal i As Integer)
 
     Dim nom, ip, mac as String
     ip=""
     mac=""
     nom=""
 
       For Each kpv As KeyValuePair(Of String, Dictionary(Of String, String)) In Me.dicOrdi
 
            If kpv.Key = Ordip Then
                For Each k As KeyValuePair(Of String, String) In kpv.Value
                    Select Case k.Key
                        Case "nom"
                            nom= k.Value
                        Case "ip"
                            ip = k.Value
                        Case "mac"
                            mac = k.Value
 
                    End Select
                Next
 
                Dim line = New String() {"text", "text", "text", "text", nom, ip, mac, "text"}
                dgv.Rows.Add(line)
 
            End If
        Next
 
 
End Sub

Je vous remercie d'avance pour votre aide!

[Pol63]

je vote pour le doevents ; c'est à proscrire, ca peut faire bugger tout et n'importe quoi
dans les faits, pendant le doevents, si tu cliques sur le bouton à nouveau ca appelle la sub, et à la fin de celle ci, l'exécution du 1er clic suspendu reprend au niveau du doevents, donc plus de 12 lignes
avec doevents on peut faire crasher une appli aussi en cliquant sur fermer la fenetre, le doevents reprend après le code disant me.treeview.x sauf que la fenetre étant fermée le treeview n'existe plus



après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
sub 1
si lignes = 0 alors
   remplir
 sinon
   vider
   rappeler sub 1 (donc remplir)

ca peut se simplifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sub 1
  vider
  remplir

et au lieu d'un while i, i+=1 on peut faire for i

[iOops]

je vote pour le doevents ; c'est à proscrire, ca peut faire bugger tout et n'importe quoi
dans les faits, pendant le doevents, si tu cliques sur le bouton à nouveau ca appelle la sub, et à la fin de celle ci, l'exécution du 1er clic suspendu reprend au niveau du doevents, donc plus de 12 lignes
avec doevents on peut faire crasher une appli aussi en cliquant sur fermer la fenetre, le doevents reprend après le code disant me.treeview.x sauf que la fenetre étant fermée le treeview n'existe plus

après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
sub 1
si lignes = 0 alors
   remplir
 sinon
   vider
   rappeler sub 1 (donc remplir)

ca peut se simplifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sub 1
  vider
  remplir

et au lieu d'un while i, i+=1 on peut faire for i

Merci pour ta reponse. J'ai aussi pense au doevents et pens´e que j'avais trouv´e le bug mais les essais que j'avais fait n'avaient pas ete concluant. Ici j'utilise le doevents pour forcer l'affichage et surtout voir la progression de l'affichage des couleurs de chaque/noeux en fonction du resultat de is_online(ip). Si je n'utilise pas doevents et je clique sur le bouton "tester" je vois donc maintenant un treeeview vide et le tableau l'est egaelement au lieux de voir ces deux element se remplir noeux/ligne par noeux/ligne. Ma methode / approche n'est peut etre pas la bonne ?? Est-il possible de voir mon treeview et mon tableau se charger en meme temps pas a pas tout en affichant une couleur de noeux/ligne differente en fonction du resultat is_online() ?

Pour la boucle for a la place du while, qu'est-ce que le for apporte de mieux que le while ici? Jj'essai de faire un For i as integer to tv.Nodes(0).Nodes.Count mais cela ne fonctionne pas car le treeview n'est pas encore remplit jusqu' a la fin je suppose (du a la suppresion du doevents.

Merci !

ps : pardon pour les accents.

[Pol63]

le for apporte plus de lisibilité, ca gagne une ligne de code et le while est plus utilisé avec un test
en voyant un for on sait directement qu'on va faire x tours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   For Each k As KeyValuePair(Of String, String) In kpv.Value
                    Select Case k.Key
                        Case "nom"
                            nom= k.Value
                        Case "ip"
                            ip = k.Value
                        Case "mac"
                            mac = k.Value
 
                    End Select

totalement inutile, enfin mauvaise utilisation donc ca fait du code moche
essaye de faire une classe plutot (avec 3 propriétés nom ip mac)


après je ne comprends pas ta question "Est-il possible de voir mon treeview et mon tableau se charger en meme temps pas a pas tout en affichant une couleur de noeux/ligne differente en fonction du resultat is_online"
tout est possible, par contre pour t'expliquer il faut qu'on sache ce que tu fais

ton traitement est long dans la boucle while ?
si oui tu peux voir le backgroundworker

[iOops]

le for apporte plus de lisibilité, ca gagne une ligne de code et le while est plus utilisé avec un test
en voyant un for on sait directement qu'on va faire x tours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   For Each k As KeyValuePair(Of String, String) In kpv.Value
                    Select Case k.Key
                        Case "nom"
                            nom= k.Value
                        Case "ip"
                            ip = k.Value
                        Case "mac"
                            mac = k.Value
 
                    End Select

totalement inutile, enfin mauvaise utilisation donc ca fait du code moche
essaye de faire une classe plutot (avec 3 propriétés nom ip mac)


après je ne comprends pas ta question "Est-il possible de voir mon treeview et mon tableau se charger en meme temps pas a pas tout en affichant une couleur de noeux/ligne differente en fonction du resultat is_online"
tout est possible, par contre pour t'expliquer il faut qu'on sache ce que tu fais

ton traitement est long dans la boucle while ?
si oui tu peux voir le backgroundworker

Je suis d'accord avec toi pour le code ci-dessus. De toute facon ce code est temporaire c'est juste pour du test et je comptais comme tu le recommande faire une classe a part pour plus de lisibiliter et ne laisser dans cette classe que le code qui gere l affichage. Je decouvre pleins de chose en meme temps, surtout VB.net que je ne connais/maitrise pas du tout.

Ce que je souhaite faire :

Des que je clique sur un bouton "tester", chaque noeux du treeview doit afficher une couleur differente : verte si le ping a reussi, rouge si le ping n a pas reussi. De ce fait je sait quel ordinateur et joignable ou pas. Il s'en suit aussi en meme temps l affichage du tableau (au passage je ne sais pas si je dois lier le tableau a une source de donnee car je fonctionne avec des fichiers csv.). Chaque ligne est aussi affichee en vert ou bien en rouge. Ceci je souhaite le voir de facon progressive. Au debut j'avait penser a une barre de progression puis je n'arrivais pas a gerer la progression comme je voulais. Et je suis tombe sur un forum sur l'utilisation du doevents qui semblais repondre a mon besoin. Or cette solution n'est pas recommandee. En faisant une recherche, j'ai pu lire que l'utilisation de backgroundworker ou de thread est plus que conseillee. Je ne sais pas trop comment tout cela fontionne.

[Pol63]

pour le rafraichissement, le principe va être de le faire tous les tant de temps, pour ca il y a le timer ou le thread (le backgroundworker est un thread légèrement simplifié, mais pour une boucle continue le thread est peut etre conseillé)
le timer ca se peut se poser sur un form comme un bouton (ou presque), il lève ensuite un event toutes les x millisecondes, sur le thread principal, permettant donc de modifier l'interface

le truc c'est que pendant que notre code s'exécute l'interface n'est pas rafraichie, donc si le code est long (plusieurs centaines de millisecondes) l'interface freeze ("ne répond pas")
le doevents permet dans certains cas de pallier à ce problème, mais comme dit précédemment c'est une fausse bonne idée
par contre si on effectue notre traitement long sur un autre thread, il n'y a pas de freeze
nouvel inconvénient, il est interdit de modifier l'interface depuis un autre thread (changer la couleur d'un treenode par exemple)
il y a alors des mécanismes pour revenir sur le thread principal le temps de modifier l'interface

sur la classe ping, il y a plusieurs méthodes pour faire un ping
il y a le ping simple, le ping avec un timeout (si le ping ne répond pas dans ce laps de temps, le ping est déclaré en échec), et le ping asynchrone

les méthodes asynchrones il y en a un peu partout dans le framework, ca peut faire peur au début mais une fois qu'on a compris c'est simple
en fait la méthode qu'on appelle démarre un thread pour faire ce qu'elle doit faire, et quand elle a fini elle fait le retour
il y a 2 patterns, soit celui de l'event (simple), soit celui du callback
le callback ca revient au même, quand on appelle une méthode on lui donne un pointeur vers une sub qu'on veut qu'il rappelle quand c'est terminé
dans les 2 cas on peut souvent passer un objet, qui nous permettra de savoir sur quoi porte le rappel


pour résumer, tu poses un timer à 1000ms
quand ton dictionnaire est rempli tu fais letimer.start
sur l'event tick du timer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for each pc in ledico.values
  dim p as new system.net.networkinformation.ping  
  addhandler p.pingcompleted, addressof pingterminé
  p.sendasync(pc.ip, 500, pc) ' ici on passe l'instance du pc 
next

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
private sub pingterminé (sender As Object, e As System.Net.NetworkInformation.PingCompletedEventArgs)
  Dim p As System.Net.NetworkInformation.Ping = DirectCast(sender, System.Net.NetworkInformation.Ping) ' dans toutes les méthodes, sender est celui qui appelle l'évènement
 RemoveHandler p.PingCompleted, AddressOf a ' les handlers ajoutés doivent être suprimés
  dim lepc as pc = directcast(e.userstate, pc) ' ce qu'on a mis en dernier dans sendasync est récupérable ici
  '  le statut du ping se trouve via  If e.Reply.Status = Net.NetworkInformation.IPStatus.Success Then
   ' on a donc le pc, l'état du ping, il ne reste plus qu'à retrouver le node et la ligne du dgv pour change la couleur
  ' le retour de la méthode async est sur le même thread que l'appel (dans le timer) donc sur le thread principal, donc l'interface est modifiable d'ici
end sub

voilà, j'espèce que je t'ai bien assomé
j'ai peut etre tiré quelques raccourcis dans mes explications, n'hésites pas si tu as des questions