Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click,
Button2.Click, Button3.Click, Button4.Click, Button5.Click
MessageBox.Show("여러 오브젝트 이벤트를 한번에")
End Sub
위와 같이 하면 여러개의 버튼에 같은 이벤트 적용이 가능합니다.
다섯번 할 이벤트를 한번으로 끝낼수있죠..
------------------------------------------------------------------------
다음은 여러개의 오브젝트에 적용된 이벤트중에서 어느 오브젝트에 적용되었는지 알아보는 코드입니다.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click,
Button2.Click, Button3.Click, Button4.Click, Button5.Click
If sender.name = "Button1" Then ' sender.name = "Button1"/sender Is Button1 동일
Label1.Text = "Button1"
ElseIf sender.name = "Button2" Then
Label1.Text = "Button2"
ElseIf sender.name = "Button3" Then
Label1.Text = "Button3"
ElseIf sender.name = "Button4" Then
Label1.Text = "Button4"
ElseIf sender.name = "Button5" Then
Label1.Text = "Button5"
End If
End Sub
End Class
