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.
Code:
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