Sub CreateButton() Dim MesButtons() As Button = New Button() {New Button(), New Button(), New Button()} For i As Integer = 0 To 2 MesButtons(i).Name = "A" & i.ToString AddHandler MesButtons(i).Click, AddressOf Button_Click Next End Sub Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Dim buttonName As String = CType(sender, Button).Name Select Case Convert.ToInt32(Strings.Right(buttonName, buttonName.Length - 1)) Case 0 MsgBox("Titi") Case 1 MsgBox("Tata") Case 2 MsgBox("Toto") End Select End Sub
Sub CreateButton() For i As Integer = 0 To 2 Me.MesButtons(i) = New System.Windows.Forms.Button() AddHandler MesButtons(i).Click, AddressOf Button_Click Me.MesButtons(i).Name = "A" & i.ToString Me.MesButtons(i).Location = New System.Drawing.Point(137 + i * 100, 56 + i * 10) Me.MesButtons(i).Size = New System.Drawing.Size(51, 52) Me.MesButtons(i).Text = "Z" & i.ToString Me.Controls.Add(Me.MesButtons(i)) Next Me.SuspendLayout() End Sub Public Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Dim buttonName As String = CType(sender, Button).Name Select Case Convert.ToInt32(Strings.Right(buttonName, buttonName.Length - 1)) Case 0 MsgBox("Titi") Case 1 MsgBox("Tata") Case 2 MsgBox("Toto") End Select End Sub