Невозможно изменить задний цвет кнопки по специальному методу

Question

Вот мой код, который должен изменить цвет задней части любой из моих кнопок, но он не работает, и я не знаю, что не так:

Public Sub color(ByVal backcolor As System.Drawing.Color) 
    backcolor = Drawing.Color.CadetBlue 
End Sub 

И вот как я называю это, когда была нажата кнопка. Он должен изменить задний цвет Button1, но это не так. Я делаю это правильно или я что-то упускаю?

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    color(Button1.BackColor) 
End Sub 

Answer 1

Public Sub color(ByVal btn As Control, ByVal clr As System.Drawing.Color) 
    btn.BackColor = clr 
End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    color(Button1, Drawing.Color.CadetBlue) 
End Sub 

Или

Public Sub color(ByVal btn As Control) 
    btn.BackColor = Drawing.Color.CadetBlue 
End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    color(Button1) 
End Sub 

Это работает с любое управление (текстовые поля, ярлыки и т. д.)

Answer 2

System.Drawing.Color - тип ценности (структура). Когда вы передаете его на ваш метод color, передается только копия, и ваш метод только изменяет копию. Вы должны изменить Sub к функции и вернуть цвет и присвоить его BackColor имущества баттона:

Public Function color() As System.Drawing.Color 
    Return System.Drawing.Color.CadetBlue 
End Function 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    Button1.BackColor = color() 
End Sub 

Хотя эта функция не добавляет никакой ценности. Вы, вероятно, следует просто установить цвет непосредственно:

Button1.BackColor = System.Drawing.Color.CadetBlue 

Per @ VisualVincent свой комментарий, вы можете использовать ByRef в вашем Суб:

Private Sub ChangeColor(ByRef c As System.Drawing.Color) 
    c = Color.CadetBlue 
End Sub 

Answer 3

Для этого можно создать метод расширения. Создать общественный модуль в следующим образом:

Public Module Module1  
    <Runtime.CompilerServices.Extension()> 
    Public Sub SetBackColourToCadetBlue(aButton As Button) 
    'Use the following line for Telerik Button 
    'Public Sub SetBackColourToCadetBlue(aButton As Telerik.WinControls.UI.RadButton) 
     aButton.BackColor = Color.CadetBlue 
    End Sub 
End Module 

вы можете просто позвонить следующее, чтобы установить BackColor любой кнопки:

Button1.SetBackColourToCadetBlue()