DETCTAR BOTÃO PRESSIONADO
Tem uma função para vários botões;
Todos estes botões, logicamente, chama esta função;
Então é o seguinte, quero que a função pegue de qual dos botões ela foi chamada. Ex:
Tenho o Button1 e Button2 e os dois chamam a mesma função;
Então quero que ao Button1 ser clickado a função (q ele chamou) envie uma mensagem: [Ô]Button1[Ô]
e ao Button2 ser clickado a função envie a mensagem: [Ô]Button2[Ô]
Você entenderam?
Todos estes botões, logicamente, chama esta função;
Então é o seguinte, quero que a função pegue de qual dos botões ela foi chamada. Ex:
Tenho o Button1 e Button2 e os dois chamam a mesma função;
Então quero que ao Button1 ser clickado a função (q ele chamou) envie uma mensagem: [Ô]Button1[Ô]
e ao Button2 ser clickado a função envie a mensagem: [Ô]Button2[Ô]
Você entenderam?
A Resposta ai pessoal:
Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox9.Click, PictureBox8.Click, PictureBox7.Click, PictureBox6.Click, PictureBox5.Click, PictureBox40.Click, PictureBox4.Click, PictureBox39.Click, PictureBox38.Click, PictureBox37.Click, PictureBox36.Click, PictureBox35.Click, PictureBox34.Click, PictureBox33.Click, PictureBox32.Click, PictureBox31.Click, PictureBox30.Click, PictureBox3.Click, PictureBox29.Click, PictureBox28.Click, PictureBox27.Click, PictureBox26.Click, PictureBox25.Click, PictureBox24.Click, PictureBox23.Click, PictureBox22.Click, PictureBox21.Click, PictureBox20.Click, PictureBox2.Click, PictureBox19.Click, PictureBox18.Click, PictureBox17.Click, PictureBox16.Click, PictureBox15.Click, PictureBox14.Click, PictureBox13.Click, PictureBox12.Click, PictureBox11.Click, PictureBox10.Click, PictureBox1.Click, Button1.Click
Dim btn As PictureBox = DirectCast(sender, PictureBox)
[ô]For i As Integer = 1 To 40
[ô] If btn.Name = i.ToString Then
[ô]RichTextBox1.Text &= i.ToString & vbNewLine
[ô]End If
[ô]Next
MsgBox(btn.Name)
End Sub
Tópico encerrado , respostas não são mais permitidas