VisualTreeHelper遍历父子控件的通用方法

 ''' <summary>
    ''' 根据控件寻找其父控件
    ''' </summary>
    ''' <typeparam name="T">控件类型</typeparam>
    ''' <param name="obj">子控件</param>
    ''' <param name="name">你控件名称</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetParent(Of T As FrameworkElement)(ByVal obj As DependencyObject, ByVal name As String) As T
        Dim parent As DependencyObject = VisualTreeHelper.GetParent(obj)
        While Not parent Is Nothing
            If TypeOf parent Is T AndAlso (DirectCast(parent, T).Name = name Or String.IsNullOrEmpty(name)) Then
                Return DirectCast(parent, T)
            End If
            parent = VisualTreeHelper.GetParent(parent)
        End While
        Return Nothing
    End Function
    ''' <summary>
    ''' 根据父控件寻找其子控件
    ''' </summary>
    ''' <typeparam name="T">控件类型</typeparam>
    ''' <param name="obj">子控件</param>
    ''' <param name="name">名称</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetChildObject(Of T As FrameworkElement)(ByVal obj As DependencyObject, ByVal name As String) As T
        Dim depChild As DependencyObject
        Dim graChild As T
        For i As Integer = 0 To VisualTreeHelper.GetChildrenCount(obj) - 1
            depChild = VisualTreeHelper.GetChild(obj, i)
            If TypeOf depChild Is T AndAlso TryCast(depChild, T).Name = name Or String.IsNullOrEmpty(name) Then
                Return TryCast(depChild, T)
            Else
                graChild = GetChildObject(Of T)(depChild, name)
                If Not graChild Is Nothing Then
                    Return graChild
                End If
            End If
        Next
        Return Nothing
    End Function
    ''' <summary>
    ''' 根据父控件寻找所有子控件
    ''' </summary>
    ''' <typeparam name="T">控件类型</typeparam>
    ''' <param name="obj">你控件</param>
    ''' <param name="name">名称</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetChildObjects(Of T As FrameworkElement)(ByVal obj As DependencyObject, ByVal name As String) As List(Of T)
        Dim depChild As DependencyObject
        Dim childList As List(Of T)
        For i As Integer = 0 To VisualTreeHelper.GetChildrenCount(obj) - 1
            depChild = VisualTreeHelper.GetChild(obj, i)
            If TypeOf depChild Is T AndAlso TryCast(depChild, T).Name = name Or String.IsNullOrEmpty(name) Then
                childList.Add(TryCast(depChild, T))
            End If
            childList.AddRange(GetChildObjects(Of T)(depChild, ""))
        Next
    End Function