Zitat:

Ich nehme an, Du möchstest alle Knoten innerhalb der Hierarchie, die zu einem geänderten Knoten führt, farbig markieren. Dann kannst Du in dieser Routine bei jedem ret-Knotenverweis in der while-Schleife die Farbmarkierung eintragen.

Public Class Form1
 
    Dim trv As New TreeView With {.Parent = Me, .Width = 400, .Height = 500}
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Dim zeilen As String() = IO.File.ReadAllLines("C:\Daten\Achsen1.ini")
 
        Dim suche As String = "Betriebsart"
        Dim suche1 As String = "SollPosition1"
        Dim suche2 As String = "SollPosition2"
        Dim suche3 As String = "SollPosition1"
        Dim suche4 As String = "FahrSpeed"
        Dim suche5 As String = "SchleichSpeed"
        Dim suche6 As String = "VAL_PAR"
        Dim suche7 As String = "Verweilzeit"
        Dim achse, val As TreeNode
        achse = Nothing : val = Nothing
 
        For i As Integer = 0 To zeilen.Length - 1
            If zeilen(i).StartsWith("[ACHSE") Then
                achse = trv.Nodes.Add(zeilen(i).Split("["c)(1))
            End If
            If zeilen(i).StartsWith(suche) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
            If zeilen(i).StartsWith(suche1) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
            If zeilen(i).StartsWith(suche2) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
            If zeilen(i).StartsWith(suche3) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
            If zeilen(i).StartsWith(suche4) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
            If zeilen(i).StartsWith(suche5) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
            If zeilen(i).StartsWith(suche6) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
            If zeilen(i).StartsWith(suche7) Then
                val = achse.Nodes.Add(zeilen(i))
            End If
        Next
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        trv.ExpandAll()
    End Sub
End Class