Go Through Each Node in a WPF RadTreeView

I would like to go through each node in a WPF RadTreeView until a match is made.

Solution

This is possible with a coded solution. You'll expand each node and refresh the tree until you find your match.

C#

    WpfApplication app = Manager.ActiveApplication;
    Assert.IsNotNull(app);
    Telerik.WebAii.Controls.Xaml.Wpf.RadTreeView tree = app.MainWindow.Find.ByName<Telerik.WebAii.Controls.Xaml.Wpf.RadTreeView>("treeView");
    Assert.IsNotNull(tree);
    
    string match = Data["ExtractedValue"].ToString();
    bool found = false;
    IList<Telerik.WebAii.Controls.Xaml.Wpf.RadTreeViewItem> items = tree.Find.AllByType<Telerik.WebAii.Controls.Xaml.Wpf.RadTreeViewItem>();
    
    while (found == false)
    {
        foreach (Telerik.WebAii.Controls.Xaml.Wpf.RadTreeViewItem tvItem in items)
        {
            try
            {
                if (tvItem.IsExpanded == false)
                {
                    tvItem.Expand();
                    tree.Refresh();
                }
            }
            catch (Exception ex)
            {
            }
    
            if (tvItem.Text.Contains(match))
            {
                Log.WriteLine("Found: " + tvItem.Text);
                found = true;
                break;
            }
    
            tree.Refresh();
        }
        if (found == true)
        {
            break;
        }
    }

VB

    Dim app As WpfApplication = Manager.ActiveApplication
    Assert.IsNotNull(app)
    Dim tree As Telerik.WebAii.Controls.Xaml.Wpf.RadTreeView = app.MainWindow.Find.ByName(Of Telerik.WebAii.Controls.Xaml.Wpf.RadTreeView)("treeView")
    Assert.IsNotNull(tree)
    
    Dim match As String = Data("ExtractedValue").ToString()
    Dim found As Boolean = False
    Dim items As IList(Of Telerik.WebAii.Controls.Xaml.Wpf.RadTreeViewItem) = tree.Find.AllByType(Of Telerik.WebAii.Controls.Xaml.Wpf.RadTreeViewItem)()
    
    While found = False
        For Each tvItem As Telerik.WebAii.Controls.Xaml.Wpf.RadTreeViewItem In items
            Try
                If tvItem.IsExpanded = False Then
                    tvItem.Expand()
                    tree.Refresh()
                End If
            Catch ex As Exception
            End Try
    
            If tvItem.Text.Contains(match) Then
                Log.WriteLine("Found: " + tvItem.Text)
                found = True
                Exit For
            End If
    
            tree.Refresh()
        Next
        If found = True Then
            Exit While
        End If
    End While