Event Handler For Dynamic Controls

[bgreer5050]

Below I create an array of labels. I would like to add an click event to my labels. Can someone point me in a direction?

Thanks

Public Class frmMain

   
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        

        Dim lblQty(196) As Label

        Dim x As Integer = 115
        Dim y As Integer = 30

        For intLoopRows As Integer = 0 To 27

            y += 37


            For intLoopCols As Integer = 0 To 6
                x += 50

                lblQty(intLoopRows) = New Label
                lblQty(intLoopRows).Text = "0"

                lblQty(intLoopRows).SetBounds(x, y, 12, 12)
                Me.Controls.Add(lblQty(intLoopRows))

            Next
            x = 115


        Next

    End Sub

   
End Class

[dee-u]

Have a search for AddHandler.

[bgreer5050]

I did. Thanks. I changed my code (see below) and it does not work.....I am probably missing something very obvious to you more experienced programmers. Thanks for any help.

Public Class frmMain

   
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim lblQty(196) As Label

        For intCreateArray As Integer = 0 To 196

            lblQty(intCreateArray) = New Label
            AddHandler lblQty(intCreateArray).Click, AddressOf labelclicked


        Next


        Dim x As Integer = 115
        Dim y As Integer = 30

        For intLoopRows As Integer = 0 To 27

            y += 37


            For intLoopCols As Integer = 0 To 6
                x += 50

                lblQty(intLoopRows) = New Label
                lblQty(intLoopRows).Text = "0"

                lblQty(intLoopRows).SetBounds(x, y, 12, 12)
                Me.Controls.Add(lblQty(intLoopRows))

            Next
            x = 115


        Next

    End Sub

    Private Sub labelclicked(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.Text = "99"


    End Sub
   
End Class

[bgreer5050]

Still trying with no luck.....please help if you can.

[dee-u]

You need to put the addhandler in your inner loop.

For intLoopCols As Integer = 0 To 6
                x += 50
 
                lblQty(intLoopRows) = New Label
                lblQty(intLoopRows).Text = "0"
 
                lblQty(intLoopRows).SetBounds(x, y, 12, 12)
                AddHandler lblQty(intLoopRows).Click, AddressOf labelclicked
                Me.Controls.Add(lblQty(intLoopRows))
 
            Next

[bgreer5050]

dee-U,

Thank you. Is there a way for me to know which lbl was clicked in my event handler?

Thanks

[chris128]

Use the Sender object that is passed in to the event handler

[jmcilhinney]

dee-U,

Thank you. Is there a way for me to know which lbl was clicked in my event handler?

Thanks

As is the case with all event handlers, the 'sender' parameter is a reference to the object that raised the event.

[bgreer5050]

Ok. The labels on the form are an array of labels. How do I know which one was clicked?

messagebox.show(sender.???????)

Thanks Again

[chris128]

Well because Sender is of type Object, you need to cast it to the relevant type first before you can access properties on it. Something like this:

MessageBox.Show(DirectCast(Sender, Control).Name)

or, if you know it will ALWAYS be a label that is the sender:

MessageBox.Show(DirectCast(Sender, Label).Name)

[bgreer5050]

I am still missing something. I am getting a blank messagebox.

Here is the code as it stands now:

Public Class frmMain

    Dim lblQty(196) As Label


    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Protected Friend Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        'Dim lblQty(196) As Label

        For intCreateArray As Integer = 0 To 196

            lblQty(intCreateArray) = New Label




        Next


        Dim x As Integer = 115
        Dim y As Integer = 30

        For intLoopRows As Integer = 0 To 27

            y += 37


            For intLoopCols As Integer = 0 To 6
                x += 50

                lblQty(intLoopRows) = New Label



                'AddHandler lblQty(intLoopRows).Click, AddressOf labelclicked
                lblQty(intLoopRows).Text = "0"

                lblQty(intLoopRows).SetBounds(x, y, 12, 12)
                Me.Controls.Add(lblQty(intLoopRows))
                AddHandler lblQty(intLoopRows).Click, AddressOf labelclicked



            Next
            x = 115


        Next

    End Sub

    Private Sub labelclicked(ByVal sender As Object, ByVal e As System.EventArgs)

        MessageBox.Show((DirectCast(sender, Control).Name).ToString)
        MessageBox.Show(DirectCast(sender, Label).Name)



        'Dim test As Label = New Label
        'test = CType(sender, Label)
        ''MessageBox.Show(sender.GetType.ToString)












    End Sub

End Class

[chris128]

Well thats because you are using my example code without even thinking about what it does... In my example I am showing the Name property of the label but in your code you are never setting the Name property of the labels you create so of course it will be blank when you read that property. You said you wanted to identify which label was clicked so I assumed you had some way of identifying each label (ie, the Name property). If you just wanted to get the label's text then you could do this:

MessageBox.Show(DirectCast(sender, Label).Text)

[bgreer5050]

Thanks Chris.