Get button name on click

[mikeg71]

Hello all, I am creating a bunch of buttons on a form at runtime, which seems to all work great. The issue that is driving me nuts... I cannot seem to get the right button name when clicking one of them on the form. Each button location, name etc is coming from a text file. I have no problems with adding the buttons, naming them, applying tooltips etc. Only what is going on after the fact is where my trouble is.

 Sub CreateBtns()

        Dim rawData As String
        Dim FILE_NAME As String = "C:\temp\test.txt"
        Dim data()

        Dim objReader As New System.IO.StreamReader(FILE_NAME)

        Top = 0
        Left = 0

        Do While objReader.Peek() <> -1
            rawData = objReader.ReadLine()
            data = Split(rawData, ",")

            Dim dynamicButton As New Button

            dynamicButton.Height = 5
            dynamicButton.Width = 5
            dynamicButton.Location = New Point(CInt(data(2)), CInt(data(3)))
            dynamicButton.FlatStyle = FlatStyle.Flat
            dynamicButton.BackColor = Color.Magenta
            dynamicButton.ForeColor = Color.Magenta
            dynamicButton.BackColor = Color.Transparent
            dynamicButton.ForeColor = Color.FromArgb(10, Color.Transparent)
            dynamicButton.Name = data(0)
            dynamicButton.FlatAppearance.BorderColor = Color.Aqua
            dynamicButton.Font = New Font("Georgia", 6)
            AddHandler dynamicButton.Click, AddressOf DynamicButton_Click
            Controls.Add(dynamicButton)
            Dim myToolTipText = data(0) & " / " & data(1)
            ToolTip1.SetToolTip(dynamicButton, myToolTipText)
        Loop

    End Sub

    Private Sub DynamicButton_Click(ByVal sender As Object, e As MouseEventArgs)

        For Each cntrl In Me.Controls
            If TypeOf cntrl Is Button Then

                Dim btn As Button = DirectCast(cntrl, Button)
                   '''>>> Getting name is always wrong (btn.name)
                Exit Sub
            End If
        Next
    End Sub

[techgnome]

    Private Sub DynamicButton_Click(ByVal sender As Object, e As MouseEventArgs)

        For Each cntrl In Me.Controls
            If TypeOf cntrl Is Button Then

                Dim btn As Button = DirectCast(cntrl, Button)
                   '''>>> Getting name is always wrong (btn.name)
                Exit Sub
            End If
        Next
    End Sub

You want the name of the button clicked? Then why arent' you looking at the sender object? that's the thing that was clicked...

    Private Sub DynamicButton_Click(ByVal sender As Object, e As MouseEventArgs)
        MessageBox.Show(DirectCast(sender, Button).Name)
    End Sub

your code is currently looping through all the controls on the form, finding the first button it comes to and giving you the name of THAT button... not the one clicked...

-tg

[mikeg71]

techgnome..... thank you, that did what I needed. I knew I was doing something stupid there. Thanks a bunch!