Discussion :

[Anaxagore]

Bonsoir,

Apres de nombreuses recherches sur les sites, les forums, etc... j'ai bcp de mal a comprendre la philosophie du treeview.
J'essaye depuis environ 4 heures de construire un treeview pour lister les propriété des mes différentes cartes réseaux.

En gros j essaye de faire ceci :
Nom de la carte
- Mac adress
- connecté ou non
- Vitesse
- IP
- Subnet
- Passerelle
- DNS1
- DNS2

je collecte mes informations depuis :

Code :

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

1
2
 
 mesInterfaces = NetworkInterface.GetAllNetworkInterfaces

Je ne suis pas arrivé a faire le 1er Noeds qui est d'inscrire : Interface réseau.

Helppppppppppppppppp

Merci a vous

Anax

[tomlev]

L'arbre que tu veux obtenir au final, il est comme ça ?

• Interfaces réseau
  
  • Nom de la carte 1
    
    • Mac adress
    • connecté ou non
    • Vitesse
    • IP
    • Subnet
    • Passerelle
    • DNS1
    • DNS2
  • Nom de la carte 2
    
    • Mac adress
    • connecté ou non
    • Vitesse
    • IP
    • Subnet
    • Passerelle
    • DNS1
    • DNS2

Dans ce cas, tu commences par créer le noeud racine :

Code :

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

Dim rootNode As TreeNode = treeView1.Nodes.Add("Interfaces réseau")

Ensuite, pour chaque interface, tu ajoutes au noeud racine un sous-noeud :

Code :

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

Dim interfaceNode As TreeNode = rootNode.Nodes.Add(nom_de_l_interface)

Auquel tu ajoutes un sous-noeud pour chaque propriété de l'interface :

Code :

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

1
2
3
interfaceNode.Nodes.Add("Adresse MAC : " & adresse_mac)
interfaceNode.Nodes.Add("Connecté : " & connecte)
...

[Anaxagore]

c est exactement cela
Je n'y comprends decidement rien au treeview
mais par contre je vais devoir sauver les infos.
Je vais regarder comment le lire pour le sauvearder en fin de traitement
Encore merci bcp

Anax

[tomlev]

Je n'y comprends decidement rien au treeview

Ben c'est pas compliqué en fait :
- le TreeView contient des noeuds, qui sont de type TreeNode
- les noeuds racine (de premier niveau) sont dans la collection Nodes du TreeView
- chaque TreeNode a une collection de sous-noeuds, accessibles par sa propriété Nodes

[Anaxagore]

Bon desolé mais apres test, je n'y arrive tjrs pas
voici le code que j'utilise

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
 
        'Interfaces Réseau
        'Initialisation de root réseau du treeview
        Dim rootNode As TreeNode = TheTreeview.Nodes.Add("Network Interface")
 
        ' Récuparétion de la liste des interfaces réseau
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim inter As NetworkInterface
 
        Try
            For Each inter In mesInterfaces
                Dim interfaceNode As TreeNode = rootNode.Nodes.Add(inter.Description)
                interfaceNode.Nodes.Add("Status : " & monInterface.OperationalStatus.ToString)
            Next
        Catch ex As Exception
            Dim interfaceNode As TreeNode = rootNode.Nodes.Add("Impossible de détecter une interface sur cette machine")
        End Try

Chose assez bizarre :

1) Qud je retire

Code :

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

1
2
 
interfaceNode.Nodes.Add("Status : " & monInterface.OperationalStatus.ToString)

J'obtiens bien :
Interfaces réseau
* Nom de la carte 1
* Nom de la carte 2

Par contre en le laissant j'obtiens :
Interfaces réseau
* Nom de la carte 1
* Impossible de détecter une interface sur cette machine

Je ne comprends pas pourquoi il ne change la donne qud j'ajoute des information

Anax

[tomlev]

Faire un try/catch, c'est bien, mais si tu en profites pour récupérer les infos sur l'exception c'est mieux
Ca permet de voir ce qui s'est passé

Enfin bon, je soupçonne une NullReferenceException... Sur la ligne qui plante, tu utilises la variable monInterface, alors que l'interface en cours de la boucle est inter... remplace monInterface par inter, ça devrait marcher