Discussion :

[Maniz]

Bonjour,

Je cherche depuis un petit moment déjà, mais impossible de trouver, comment modifier la mise en forme d'un noeud unique au sein d'un Treeview?

Code :

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

Me.tvTreeView.Font.Italic = True

Ceci par exemple est censé mettre tous les noeuds en italique.

Or, de mon côté, je fais une recherche dynamique comme ceci :

Code :

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

1
2
3
4
Dim oNodeTmp1() As TreeNode
            Do While oDataReader.Read
                oNodeTmp1 = Me.tvMenu.Nodes.Find(oDataReader("MC.id_mainmenu"), True)
            Loop

Et j'aimerais mettre le noeud retrouvé en Italique, histoire de le mettre en valeur. (J'aurais bien mis des couleurs, mais elles sont déjà nombreuses à se balader, je préfererais éviter de surcharger l'affichage.

En bref, si quelqu'un avait en tête le moyen de faire cela, je n'ai réussi à trouver aucune propriété correspondant à ce besoin.
Dans le pire des cas je pourrais me rabattre sur un :

Code :

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

oNodeTmp1.Text.ToUpper

Même si cela apportera quelques inconvénients divers.

Le code complet de cette fonction :

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
oConnection.Open()
        Dim oDataReader As OleDbDataReader = oCmdSQL.ExecuteReader
 
        If oDataReader.HasRows Then
            Dim oNodeTmp1() As TreeNode
            Dim oNodeTmp2() As TreeNode
            Dim oNodeTmp3() As TreeNode
            Do While oDataReader.Read
                oNodeTmp1 = Me.tvMenu.Nodes.Find(oDataReader("MC.id_mainmenu"), True)
                oNodeTmp2 = Me.tvMenu.Nodes.Find(oDataReader("s.id_section"), True)
                oNodeTmp3 = Me.tvMenu.Nodes.Find(oDataReader("SS.id_sous_section"), True)
            Loop
        End If
 
        oDataReader.Close()
        oConnection.Close()

(Si au passage il y avait un moyen de ne pas passer par trois variables temporaires Enfin ça c'est un détail)

[chrismonoye]

Bonsoir,
à tester :

Code :

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

1
2
3
4
5
6
            Dim oNodeTmp1() As TreeNode
            oNodeTmp1 = Me.tvMenu.Nodes.Find(oDataReader("MC.id_mainmenu"), True)
            For i As Integer = 0 To oNodeTmp1.Length - 1
                Me.tvMenu.SelectedNode = oNodeTmp1(i)
                Me.tvMenu.SelectedNode.NodeFont = New Font("Microsoft Sans Serif", 8, FontStyle.Italic)
            Next

[Maniz]

Merci à toi, exactement ce qu'il me falait