Discussion :

[kitcarflo]

Bonjour tous le monde.

J'ai un problème que je n'arrive pas à résoudre dans ma programmation. J'utilise un TreeView à 3 level. (Level 0, 1 et 2).
Pour remplir le treeview, j'utilise une routine que j'ai mis en place. Les nodes du level 0 ont une clé égale à "T" & index. Les nodes du level 1 on une clé égale à la clé de leurs parents auquel j'ajoute "L" & index. Puis de même pour les nodes du level3. Vous pouvez voir en image jointe l'exemple de l'arbre.

Donc quand je sélectionne un nodes avec clic dans le TreeView, je recupère le "name" du node ce qui me donne sa clé (clé qui est unique). Si par exemple je clique sur "Equipe 1" dans mon exemple, j'aurais la clé "T1L0E0". Si je clique sur "L2" dans mon exemple, j'aurais "T0L1".

Mais une fois que j'ai cette clé est que je la connais. J'aimerais faire un truc comme ....

Code :

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

toto = me.treeview.nodes(cle).text

Mais rien ne marche. Auriez-vous une solution ???

[linke]

salut
généralement on déclare un event clic ou double clic , ensuite on récupère l'info.....
envoi un peut de code pour voir ou tu coince

[kitcarflo]

Pour le moment, je fais des tests sur un truc basique comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TreeView_championnat_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView_championnat.AfterSelect
 
me.label1.text = Me.TreeView_championnat.SelectedNode.Name
 
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Me.TreeView_championnat.nodes(me.label1.text).BackColor = Color.Black
 
MsgBox(Me.TreeView_championnat.Nodes(test).text, MsgBoxStyle.Exclamation, "Info")
 
end sub

Mais il ne se passe rien ! Pas une erreur rien. Pourtant je récupère bien la Clé de la node sélectionné.
J'ai vu que lorsque je fais me.treeView_championnat.Nodes(......) On me propose 3 onglets à remplir. Le premier, il n'y a rien, le deuxième est spécifié "Index As intéger", le troisième, "Key as string". Du coup j'ai essayé avec "Me.treeView_championnat.Nodes(,,test).text ... Mais toujours rien.

[kitcarflo]

Bon ben finalement j'ai trouvé ma réponse tout seul en cherchant un peu à droite et gauche et adaptant.

J'ai trouvé donc deux méthodes.

1 - Recherche par la clé de la node.

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
 
Dim Cle As String = String.Empty
Dim b As Boolean = True
 
Cle = TreeView_championnat.SelectedNode.name
 
If Cle <> String.Empty Then
     Try
          Dim arr As TreeNode() = Me.TreeView_championnat.Nodes.Find(Cle , b)
 
          For i = 0 To arr.Length - 1
              Me.TreeView_championnat.SelectedNode = arr(i)
              Me.TreeView_championnat.SelectedNode.BackColor = Color.Red
          Next i
     Catch
          Msgbox(MsgBox(ex.Message, MsgBoxStyle.Information, "Prog test")
     End Try
        Else
            MessageBox.Show("Pas de clé dans la node sélectionnée", MsgBoxStyle.Information, "Prog test")
End If

2 - Recherche par le texte de la node.

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
 
Dim texte As String = String.Empty
Dim b As Boolean = True
 
texte = TreeView_championnat.SelectedNode.Text
 
If texte <> String.Empty Then
     Try
         Dim arr As TreeNode() = treeView1.Nodes.Find(texte, b)
         For i = 0 To arr.Length - 1
                    Me.TreeView_championnat.SelectedNode = arr(i)
                    Me.TreeView_championnat.SelectedNode.BackColor = Color.Blue
         Next i
     Catch
          Msgbox(MsgBox(ex.Message, MsgBoxStyle.Information, "Prog test")
     End Try
Else
     MessageBox.Show("Erreur", MsgBoxStyle.Information, "Prog test")
end if