Selection nodes par clé TreeView !

Version imprimable

06/08/2014, 19h52
kitcarflo

1 pièce(s) jointe(s)

Selection nodes par clé TreeView !

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:

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

Mais rien ne marche. Auriez-vous une solution ???
06/08/2014, 20h23
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 :)

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

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.

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:

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:

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

:) :) :) :)