VB.NET自定义控件属性报错：'CustomProperty'非Control成员求助

这个问题我刚接触VB.NET的时候也踩过坑！核心原因很简单：你把遍历的变量_CustomControl声明成了基类Control类型，哪怕用TypeOf判断出它是CustomControl的实例，编译器还是只会把它当成Control来处理，自然找不到CustomProperty这个自定义属性。下面给你两种常用的解决思路：

方法1：手动类型转换（DirectCast/TryCast） #

在确认控件类型后，把Control实例转换成CustomControl类型，就能顺利访问自定义属性了。这里分两种场景选工具：

• 如果你百分百确定当前控件就是CustomControl，用DirectCast效率更高；
• 要是怕有意外类型不匹配的情况，用TryCast更安全（转换失败会返回Nothing，不会抛出异常）。

示例代码：

For Each _CustomControl As Control In Controls
    ' 注意用AndAlso短路判断，前面不成立后面就不执行了
    If TypeOf _CustomControl Is CustomControl AndAlso [criteria met] Then
        ' 方式1：DirectCast（确定类型匹配时用）
        DirectCast(_CustomControl, CustomControl).CustomProperty = value
        
        ' 方式2：TryCast（更安全的写法）
        ' Dim targetCtrl = TryCast(_CustomControl, CustomControl)
        ' If targetCtrl IsNot Nothing Then
        '     targetCtrl.CustomProperty = value
        ' End If
    End If
Next

方法2：用OfType直接过滤目标控件 #

更简洁的写法是直接遍历窗体Controls集合里所有CustomControl类型的实例，这样连类型判断的代码都省了，逻辑更清晰：

示例代码：

For Each customCtrl As CustomControl In Controls.OfType(Of CustomControl)()
    If [criteria met] Then
        customCtrl.CustomProperty = value
    End If
Next

这种方法会自动跳过所有非CustomControl的控件，代码更干净。

额外提醒 #

如果你的控件是嵌套在Panel、GroupBox这类容器控件里的，上面的方法只会遍历窗体的直接子控件。要是需要遍历所有层级的控件，得写个递归方法来遍历所有子控件容器哦。

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