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

最新推荐文章于 2024-07-15 22:33:45 发布

原创最新推荐文章于 2024-07-15 22:33:45 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #integer #string #list

SilverLight 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了在WPF中如何通过三个实用函数实现对控件树的遍历：GetParent用于从子控件找到指定类型的父控件；GetChildObject用于从父控件找到指定类型的第一个子控件；GetChildObjects则返回所有符合条件的子控件列表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

''' <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