Procedimento para vários botões diferentes

[rafaelsantos]

Boas,

estou a desenvolver uma aplicaçã e acontece que a meio percebi que estava a colocar demasiadas linhas de código que se calhar são desnecessárias. Tenho 9 botões e todos eles fazm o mesmo código apenas muda o nome do objecto. Acontece que acheie melhor criar um Procedimento e quando o utilizador carregar no botão irá para a esse procedimento. Mas surgiu-me um problema porque apenas funcionará com primeiro botão. Queria saber como posso por o mesmo procedimento a funcionar para botões diferentes.

No código abaixo o PB1 é o botão, sendo que onde se encontra pb1 eu quero que de acordo com o botão clicado isso mude para, por exemplo o butão pb1, pb2, pb3, pb4.

If jgbegin = True Then
If lbljogturns.Text = nome1 Then
pb1.BackgroundImage = Image.FromFile("F:\xx.bmp")
                lbljogturns.Text = nome2
            Else
                pb1.BackgroundImage = Image.FromFile("F:\o.bmp")
                lbljogturns.Text = nome1
            End If
        Else
            MsgBox("Tem de começar o jogo.", MsgBoxStyle.Critical, "Erro")
        End If

Antes de Mas Obrigado

[renafi]

No código do evento click, fazes uma coisa parecida com isto:

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click, Button2.Click

Na parte do Handles, basta associares os botões e os eventos click.

A partir dai, consegues capturar qual o botão que foi clicado, através do objecto sender

O que costumo fazer é logo no início do evento:

Dim b as button = sender

Onde tens o pb1, mudas para b

Está feito. Diz se isto funcionou, e se percebeste.

[rafaelsantos]

Funcionou muito bem.

ty renafi