visual basic,비주얼베이직,vb .net강좌-코드로 오브젝트생성및 이벤트적용,AddressOf,AddHandler,sender ,Controls.Add

코드로 오브젝트 생성및 이벤트 적용 예제입니다.

결과물입니다.

Public Class Form1

    Dim Buttons(99) As Button

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        For i As Integer = 0 To 99

            Buttons(i) = New Button()

            Buttons(i).Size = New Size(20, 20)

            Buttons(i).Top = ((i * 20) \ 200) * 20

            Buttons(i).Left = (i * 20) Mod 200

            Buttons(i).Text = "버튼 " & i.ToString

            AddHandler Buttons(i).Click, AddressOf Me.BtnClick ' 이벤트 적용

            Me.Controls.Add(Buttons(i))

        Next

    End Sub

    Private Sub BtnClick(ByVal sender As Object, ByVal e As EventArgs) ' 이벤트 메소드

        If sender Is Buttons(0) Then

            MsgBox("Buttons(0)")

        ElseIf sender Is Buttons(1) Then

            MsgBox("Buttons(1)")

        End If

    End Sub

End Class