VB.NET遍历控件为按钮添加MouseEnter/Leave事件报错，如何正确引用？

你遇到的报错是因为Me.Controls遍历出来的控件默认是Object类型，编译器没法识别它属于Button的专属事件。另外原代码里AddressOf control.DynamicButton_MouseEnter写法也错了，事件处理方法是窗体的成员，不是控件的，不能用control.前缀。

正确的写法需要先把控件转换成Button类型，再绑定事件，有两种常用方式：

方法一：用TypeOf判断+类型转换 #

For Each control In Me.Controls
    ' 先判断当前控件是否是Button类型
    If TypeOf control Is Button Then
        ' 转换成Button对象
        Dim targetBtn As Button = CType(control, Button)
        ' 绑定事件处理方法
        AddHandler targetBtn.MouseEnter, AddressOf DynamicButton_MouseEnter
        AddHandler targetBtn.MouseLeave, AddressOf DynamicButton_MouseLeave
    End If
Next

方法二：用TryCast安全转换 #

如果不确定控件类型，怕转换出错，可以用TryCast，转换失败会返回Nothing：

For Each control In Me.Controls
    Dim targetBtn As Button = TryCast(control, Button)
    If targetBtn IsNot Nothing Then
        AddHandler targetBtn.MouseEnter, AddressOf DynamicButton_MouseEnter
        AddHandler targetBtn.MouseLeave, AddressOf DynamicButton_MouseLeave
    End If
Next

另外要确保你的事件处理方法签名和Button的事件匹配，比如：

Private Sub DynamicButton_MouseEnter(sender As Object, e As EventArgs)
    ' 示例逻辑：鼠标进入时改变按钮背景色
    Dim btn As Button = CType(sender, Button)
    btn.BackColor = Color.LightSkyBlue
End Sub

Private Sub DynamicButton_MouseLeave(sender As Object, e As EventArgs)
    ' 示例逻辑：鼠标离开时恢复默认背景色
    Dim btn As Button = CType(sender, Button)
    btn.BackColor = SystemColors.Control
End Sub

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