如何在WPF(VB)代码中批量修改容器内多个元素的属性

你的思路方向是对的，但原始代码存在几个关键问题：

1. MainGrid(Elements) 写法错误，WPF容器的子元素集合需通过 Children 属性访问；
2. 直接遍历 MainGrid.Children 只能找到Grid的直接子元素，无法获取嵌套在Viewbox、Canvas里的Ellipse；
3. 修改属性时未指定目标对象（需写elip.Height而非直接Height），且WPF的Height/Width是数值类型，不需要加引号，Fill需赋值为Brush对象而非字符串。

修正后的基础代码（仅适配直接子元素场景） #

如果你的Ellipse都是Grid的直接子元素，代码可修改为：

Dim elipslist As New List(Of Ellipse)
' 遍历Grid的直接子元素
For Each elem In MainGrid.Children
    If TypeOf elem Is Ellipse Then
        elipslist.Add(CType(elem, Ellipse))
    End If
Next
' 修改每个Ellipse的属性
For Each elip In elipslist
    elip.Height = 30
    elip.Width = 30
    elip.Fill = New SolidColorBrush(Color.FromRgb(0, 0, 0))
Next

递归查找所有嵌套的Ellipse（推荐适配你的场景） #

由于你的Ellipse嵌套在Viewbox→Canvas层级中，必须递归遍历整个视觉树才能找到所有目标元素，下面是通用的递归查找方法：

' 递归查找指定容器内所有指定类型的元素
Private Function FindVisualChildren(Of T As DependencyObject)(parent As DependencyObject) As List(Of T)
    Dim children As New List(Of T)()
    For i As Integer = 0 To VisualTreeHelper.GetChildrenCount(parent) - 1
        Dim child = VisualTreeHelper.GetChild(parent, i)
        If TypeOf child Is T Then
            children.Add(CType(child, T))
        End If
        ' 递归查找子元素的子元素
        children.AddRange(FindVisualChildren(Of T)(child))
    Next
    Return children
End Function

' 使用方法
Dim allEllipses = FindVisualChildren(Of Ellipse)(MainGrid)
For Each elip In allEllipses
    elip.Height = 30
    elip.Width = 30
    elip.Fill = Brushes.Black ' 直接用内置黑色画刷更简便
Next

其他实现方式：结合LINQ简化代码 #

如果习惯用LINQ，可将递归方法简化为LINQ表达式：

Imports System.Linq

Private Function FindVisualChildren(Of T As DependencyObject)(parent As DependencyObject) As IEnumerable(Of T)
    If parent Is Nothing Then Return Enumerable.Empty(Of T)()
    Return VisualTreeHelper.GetChildrenCount(parent).
        Select(Function(i) VisualTreeHelper.GetChild(parent, i)).
        OfType(Of T)().
        Concat(VisualTreeHelper.GetChildrenCount(parent).
            Select(Function(i) VisualTreeHelper.GetChild(parent, i)).
            SelectMany(Function(child) FindVisualChildren(Of T)(child)))
End Function

' 使用时直接遍历
For Each elip In FindVisualChildren(Of Ellipse)(MainGrid)
    elip.Height = 30
    elip.Width = 30
    elip.Fill = Brushes.Black
Next

内容的提问来源于stack exchange，提问作者Trobit