How to use Onclick event with an Array of Buttons?

[isti88]

Hi!

I have a 2 dimensiononal Button array, that i created with this code

Public Class Form1
 
    Public btn_array(5, 5) As Button
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
 
        For i As Integer = 0 To 5
            For j As Integer = 0 To 5
                btn_array(i, j) = New Button
                Me.Controls.Add(btn_array(i, j))
                btn_array(i, j).Location = New Point(10 + i * 75, 10 + j * 30)
                btn_array(i, j).Text = "Button(" & i & "," & j & ")"
            Next
        Next
 
    End Sub
 
 
End Class
 

I would like to run a sub, when the user clicks on one of the buttons. Also i should be able to tell, which button has been clicked.

Lets say i want to run the following sub, that messages me the i and the j indexes of the clicked button.

    Private Sub One_of_the_buttons_has_been_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(" You have clicked Button " & i & j )
    End Sub
 

I have been searching this forum and the msdn for the solution to my problem for ages but i still have not found the answer.

I would be grateful if anyone could show me a way to archive my goal.


And some information about my developer enviroment

Microsoft Visual Studio 2005
Version 8.0.50727.42 (RTM.050727-4200)
Microsoft .NET Framework
Version 2.0.50727

Installed Edition: Professional

Microsoft Visual Basic 2005 77626-009-0000007-41551
Microsoft Visual Basic 2005

Thanks for reading 'till this :)

[iburyak]

You owe me something.... :)
I am not even .NET programmer .... :)

This code does work I tested:

Public btn_array(5, 5) As Button
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For i As Integer = 0 To 5
            For j As Integer = 0 To 5
                btn_array(i, j) = New Button
                Me.Controls.Add(btn_array(i, j))
                btn_array(i, j).Location = New Point(10 + i * 75, 10 + j * 30)
                btn_array(i, j).Text = "Button(" & i & "," & j & ")"
                btn_array(i, j).Name = "Button(" & i & "," & j & ")"
                AddHandler btn_array(i, j).Click, AddressOf MyControl_Click
            Next
        Next
 
    End Sub
 
    Private Sub MyControl_Click(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("You have clicked control name " + sender.name)
    End Sub
 
 
End Class

Good Luck.

[isti88]

You Deserve A Million Thank Yous!
Amazing solution, exact what i needed!!
I really owe you iburyak!

You owe me something.... :)
I am not even .NET programmer .... :)

This code does work I tested:

Public btn_array(5, 5) As Button
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For i As Integer = 0 To 5
            For j As Integer = 0 To 5
                btn_array(i, j) = New Button
                Me.Controls.Add(btn_array(i, j))
                btn_array(i, j).Location = New Point(10 + i * 75, 10 + j * 30)
                btn_array(i, j).Text = "Button(" & i & "," & j & ")"
                btn_array(i, j).Name = "Button(" & i & "," & j & ")"
                AddHandler btn_array(i, j).Click, AddressOf MyControl_Click
            Next
        Next
 
    End Sub
 
    Private Sub MyControl_Click(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("You have clicked control name " + sender.name)
    End Sub
 
 
End Class

Good Luck.

[iburyak]

This picture is so cute... :)
How did you do it?

[Killer42]

This picture is so cute... :)
How did you do it?

If you mean how it was posted, it’s just an IMG link - see the FAQ. If you mean how it was created… good question.