IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Comportement étrange avec l'utilisation de Datagridview.Rows.clear() [Débutant]


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Mai 2006
    Messages
    48
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 48
    Par défaut Comportement étrange avec l'utilisation de Datagridview.Rows.clear()
    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!

  2. #2
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 197
    Par défaut
    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

    et au lieu d'un while i, i+=1 on peut faire for i
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  3. #3
    Membre averti
    Inscrit en
    Mai 2006
    Messages
    48
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 48
    Par défaut
    Citation Envoyé par Pol63 Voir le message
    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

    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.

  4. #4
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 197
    Par défaut
    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
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  5. #5
    Membre averti
    Inscrit en
    Mai 2006
    Messages
    48
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 48
    Par défaut
    Citation Envoyé par Pol63 Voir le message
    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.

  6. #6
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 197
    Par défaut
    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
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Lazarus] Problème étrange avec l'utilisation de la fonction StrToFloat
    Par ovni76 dans le forum Lazarus
    Réponses: 7
    Dernier message: 07/09/2014, 18h01
  2. Réponses: 0
    Dernier message: 02/07/2013, 11h53
  3. Comportement étrange avec "order by"
    Par Warluck dans le forum SQL
    Réponses: 2
    Dernier message: 04/11/2010, 21h06
  4. Comportement étrange avec free.
    Par Rakken dans le forum C
    Réponses: 9
    Dernier message: 17/09/2008, 14h06
  5. Comportement étrange avec les index et "order by"
    Par Dia_FR dans le forum Requêtes
    Réponses: 5
    Dernier message: 18/08/2008, 09h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo