控制按钮

Question

我想问我的问题。 我制作3个按钮，按钮1,2和3.所以当我点击一个按钮时，自动按钮会改变颜色。我正在使用这样的代码

For Each ctrl As Control In frm.Controls
   If ctrl = button Then
      ctrl.backcolor = color.red
   End If     
Next

但仍然是错误。请帮帮我

Answer 1

正确的代码是：

For Each ctrl As Control In frm.Controls
    If TypeOf ctrl Is Button Then
        DirectCast(ctrl,Button).BackColor = Color.Red
    End If
Next

Answer 2

使用以下代码：

    For Each ctrl As Control In Controls
        If TypeOf ctrl Is Button Then
            ctrl.BackColor = Color.Red
        End If
    Next

你做错了是将一个实例与一个类型进行比较。您需要做的是将实例的Type与另一个Type进行比较。

Answer 3

这不是最好的方法。看看下面的选项。

Sub buttons_click(sender as Object, e as event) Handles button1.Click, 
                                                      _ button2.Click, 
                                                      _ button3.Click
    sender.backcolor = color.red
End Sub

很抱歉，如果语法有点偏离，那么我已经做了一段时间了。

希望这有帮助。