是否可以使用Me.Controls.find（"；，True）（0）VB.NET查找矩形形状

p1

是矩形形状的名称

c = Me.Controls.Find("a1", True)(0)
ctype(c, RectangleShape).FillColor = Color.Gray

---

当索引超出数组边界时出现错误。

矩形形状不是控件，因此Controls.Find（）无法找到它。索引时将返回一个空数组kaboom。您必须使用For Each迭代ShapeContainer.Shapes集合。因此，大致上：

    For Each shp As Shape In ShapeContainer1.Shapes
        If TypeOf shp Is RectangleShape AndAlso shp.Name = "a1" Then
            DirectCast(shp, RectangleShape).FillColor = Color.Gray
        End If
    Next

---

其中“ShapeContainer1”是作为形状主体的隐藏良好的控件。

如果名称是

p1

，为什么要查找

a1

？另外，在尝试更改其属性之前，我会执行

TryCast

并检查

Nothing

。