有没有办法让我最小化下面的代码或另一种编码方法?
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.BackColor = Color.Red
Button2.BackColor = Color.Yellow
Button3.BackColor = Color.Yellow
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Button1.BackColor = Color.Yellow
Button2.BackColor = Color.Red
Button3.BackColor = Color.Yellow
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Button1.BackColor = Color.Yellow
Button2.BackColor = Color.Yellow
Button3.BackColor = Color.Red
End Sub
End Class
一种选择是对所有按钮使用一个事件处理程序。
传递给事件处理程序sender
是单击的按钮的实例
Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
Button1.BackColor = Color.Yellow
Button2.BackColor = Color.Yellow
Button3.BackColor = Color.Yellow
DirectCast(sender, Button).BackColor = Color.Red
End Sub