Hallo,
ich habs jetzt geschafft die HTML-Tags einer Internet-Seite in einem TreeView anzuzeigen!:
Spoiler anzeigen
With Me.TreeView1
.Nodes.Clear()
.BeginUpdate()
AddNode(Me.WebBrowser1.Document.Body.Parent, .Nodes)
.EndUpdate()
.ExpandAll()
End With
Private Sub AddNode(element As HtmlElement, nodes As TreeNodeCollection)
Dim node = nodes.Add(element.TagName)
node.Tag = element.OuterHtml
For Each child As HtmlElement In element.Children
AddNode(child, node.Nodes)
Next
End Sub
Aber wie kann ich zu den einzelnen TreeView-Nodes noch den Inhalt des Tags anzeigen lassen?
ich habs jetzt geschafft die HTML-Tags einer Internet-Seite in einem TreeView anzuzeigen!:
With Me.TreeView1
.Nodes.Clear()
.BeginUpdate()
AddNode(Me.WebBrowser1.Document.Body.Parent, .Nodes)
.EndUpdate()
.ExpandAll()
End With
Private Sub AddNode(element As HtmlElement, nodes As TreeNodeCollection)
Dim node = nodes.Add(element.TagName)
node.Tag = element.OuterHtml
For Each child As HtmlElement In element.Children
AddNode(child, node.Nodes)
Next
End Sub
Aber wie kann ich zu den einzelnen TreeView-Nodes noch den Inhalt des Tags anzeigen lassen?