Saut de ligne dans un treeviewRésolu

Question

Bonjour à tous ! Premier message sur le forum (je m'excuse d'avance auprès des modérateurs si le sujet n'est pas à sa place, n'hésiter pas le déplacer ;) ) Je vais essayer d'être le plus explicite possible... J'ai actuellement un treeView alimenter par un fichier XML. 2.8 20/06/2016 kikou 2.6 20/05/2012 -Module x ajoute -Module y ajouté -Module z ajouté 2.4 15/05/2011 Module z ajouté 2.2 20/12/2010 Ajout module y Comme vous pouvez le remarquer, pour la version 2.6, j'ai plusieurs modification, distingué par un trait d'union et un saut de ligne. Sachant que le XML est un langage de "lecture" et non de présentation, j'aimerais savoir si il était possible que le Treeview interprète ces sauts de lignes avec du code. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'On déclare une variable de type docuement Dim doc As XmlDocument = New Xml.XmlDocument 'On déclare un noeud, qui nous permettra d'identifier les noeuds dans le fichier XML Dim noeud As XmlNode Dim noeud1 As XmlNode Dim e2 As String e2 = Replace(e2, vbCrLf, " ") e2 = Replace(e2, vbLf, " ") e2 = Replace(e2, vbCr, " ") 'On charge le docuement XML doc.Load("C:\Users\04\Desktop\Stage est est.xml") 'On déclare deux liste, qui nous permettra de parcourir l'ensemble des noeuds contenu dans le fichier XML Dim element As XmlNodeList Dim liste As XmlNodeList Dim i As Integer = 0 Dim nomParent As String = "" 'On initialise le Treeview TreeView1.Nodes.Clear() TreeView1.BeginUpdate() 'On stocke tous les noeuds enfant dans la liste element element = doc.DocumentElement.ChildNodes 'On stocke l'ensemble des noeuds enfant qui nous interesse par rapport a un noeud liste = doc.DocumentElement.GetElementsByTagName("Logiciel") 'On ajoute le premier élement de notre treeView TreeView1.TopNode = TreeView1.Nodes.Add("Logiciel") TreeView1.Nodes(0).Nodes.Add("Version") For Each noeud In element If noeud.Name = "Version" Then TreeView1.Nodes(0).Nodes(0).Nodes.Add(noeud.ChildNodes(0).InnerText).Nodes.Add(noeud.ChildNodes(1).InnerText) TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(noeud.ChildNodes(2).InnerText) i = i + 1 End If Next TreeView1.EndUpdate() End Sub Bien évidemment, si je suis venu la c'est ce que j'ai essayer à résoudre ce problème. Voici un extrait de la dernière chose que j'ai essayer, plus par désespoir qu'autre chose... Module x ajoute -Module y ajouté Module z ajouté doc.InnerText.Replace(" ", vbCrLf) En vous remerciant d'avance

Utilisateur anonyme · Accepted Answer

Bonjour,

j'aimerais savoir si il était possible que le Treeview interprète ces sauts de lignes avec du codeCeci n'est pas très clair.

Pourquoi ne pas utiliser un caractère rarement utilisé dans ton xml (comme un | par exemple) ?
A la lecture de ton xml, tu fais un test systématique sur chaque élément avec un Split. 
dim montableau() as string = noeud.ChildNodes(2).InnerText.split("|"c)
Si la longueur du tableau obtenu est supérieur à 1, ton treeview saura qu'il doit insérer un saut de ligne. Les valeurs à ajouter étant contenues dans ce tableau. Dans le cas contraire, il suffit d'ignorer le test en question.

Batou37 · Answer

Merci pour la rapidité de votre réponse "banana32" 
Je doit vous avouer que c'est la première fois que je réalise un TreeView et que je n'avais pas penser a cette solution...
La variable "montableau" comprend les sauts de lignes, il ne me reste plus qu'a les afficher dans mon TreeView, j'essaye sans réussite pour l'instant ! Mais je préfère encore chercher avant de refaire appel a vous, sinon il n'y aurait aucun intérêt à codé ! 
Encore merci, et je valide comme "Réponse acceptée" !!!

Batou37 · Answer

Bon après une bonne heure de réflexion et d'essai, le résultat me convient amplement ! Je met mon code a disposition pour ceux qui veulent ;) 2.8 20/06/2016 kikou | lol | kkkkiiiii 2.6 20/05/2012 Module x ajoute | -Module y ajouté | Module p ajouté | AHAHAHAH 2.4 15/05/2011 Module z ajouté 2.2 20/12/2010 Ajout module y 'On déclare une variable de type docuement Dim doc As XmlDocument = New Xml.XmlDocument 'On déclare un noeud, qui nous permettra d'identifier les noeuds dans le fichier XML Dim noeud As XmlNode 'On charge le docuement XML doc.Load("C:\Users\04\Desktop\Stage est est.xml") 'On déclare deux liste, qui nous permettra de parcourir l'ensemble des noeuds contenu dans le fichier XML Dim element As XmlNodeList Dim liste As XmlNodeList Dim i As Integer = 0 Dim y As Integer = 0 Dim nomParent As String = "" 'On initialise le Treeview TreeView1.Nodes.Clear() TreeView1.BeginUpdate() 'On stocke tous les noeuds enfant dans la liste element element = doc.DocumentElement.ChildNodes 'On stocke l'ensemble des noeuds enfant qui nous interesse par rapport a un noeud liste = doc.DocumentElement.GetElementsByTagName("Logiciel") 'On ajoute le premier élement de notre treeView TreeView1.TopNode = TreeView1.Nodes.Add("Logiciel") TreeView1.Nodes(0).Nodes.Add("Version") For Each noeud In element If noeud.Name = "Version" Then 'On stocke chaque valeur séparé de "|" dans un tableau Dim montableau() As String = noeud.ChildNodes(2).InnerText.Split("|"c) If montableau.Length > 1 Then TreeView1.Nodes(0).Nodes(0).Nodes.Add(noeud.ChildNodes(0).InnerText).Nodes.Add(noeud.ChildNodes(1).InnerText) TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(montableau(y)) y = y + 1 While montableau.Length <> y TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(montableau(y)) y = y + 1 End While Else TreeView1.Nodes(0).Nodes(0).Nodes.Add(noeud.ChildNodes(0).InnerText).Nodes.Add(noeud.ChildNodes(1).InnerText) TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(noeud.ChildNodes(2).InnerText) End If i = i + 1 End If y = 0 Next TreeView1.EndUpdate() Si vous avez des solutions plus simple, n'hésiter pas a partagé ! ;) PS: Encore merci Banana32 ;)

Utilisateur anonyme · Answer

Bonjour,

Puisque montableau contient un élément unique ou plusieurs, il te suffisait, pour supprimer quelques lignes de code, de faire une boucle for each/next du style :

Dim montableau() As String = noeud.ChildNodes(2).InnerText.Split("|"c)
for each element as string in montableau
  TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(element)
next


A adapter à ton cas bien entendu

Batou37 · Answer

Encore merci banana32 ;)
Je doit t'avouer que je n'ai pas encore tester, car je suis sur autre chose la ;) 
Mais des que j'ai un peu de temps, je donne un coup d'oeil !

Saut de ligne dans un treeview

5 réponses

Votre réponse

Discussions similaires