creating names

[Bvisual]

hello there

i have some buttons when i press one of them the backcollor has to change to the selected coller

i chose the names like K1 , K2 , K3

now how do i make it like this

private function ChangeBackColor()

dim ClickedButton as button

select case Color
case 1           'chose coler nr1
ClickedButton.BackColor = System.Drawing.Color.FromArgb(255, 255, 255, 192)

end select
end function

all is put in a function
this fuction will be called in diffrent buttonclick events how make this work

thx

 

[Bvisual]

found it already but thx anyway

 

[earthandfire]

Try something like:

 Private [b]Sub[/b] ChangeBackColor(ByVal ClickedButton As Button)

    Select Case ClickedButton.Name
      Case "K1"
        ClickedButton.BackColor = Color.DarkTurquoise
      Case "K2"
        ClickedButton.BackColor = Color.Gold
      Case "K3"
        ClickedButton.BackColor = Color.Lavender
    End Select

  End Sub


 Private Sub K1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K1.Click

    ChangeBackColor(K1)

  End Sub

You don't need a function becauise you are not returning a value to the caling routine.

Hope this helps

 

[Bvisual]

thats what i did to fix it

thx but found it already

 

[chiph]

True. But sometimes other readers in the forum like to know the answer too.


Chip H.


____________________________________________________________________
Donate to Katrina relief:

http://s1.amazon.com/paypage/PELYGQVJ8Q7IB/103-6821258-5919825

If you want to get the best response to a question, please read FAQ222-2244 first