Ich habe Schaltflächen und Textfelder von erstelltKodierung in der nächsten Schleife das Ergebnis

'T(x).Name = "text_1"
'T(x).Name = "text_2"
'T(x).Name = "text_3"
'....

'B(x).Name = "button_1"
'B(x).Name = "button_2"
'B(x).Name = "button_3"
'...

und ich möchte eine Textbox-Eigenschaft erhalten, wenn ich auf die Schaltfläche klicke. Ich kann eine Schaltflächen-Eigenschaft erhalten, wenn ich auf "Gefällt mir" klickebutton_1.Name.ToString Aber ich kann den Text nicht bekommen, 1,2,3 .... Eigenschaft.

Ich mache einen Trick, indem ich die Funktion button_1.Name.ToString aufspalte, die letzte Zahl erhalte und sie wie folgt zum Textfeldnamen hinzufüge"text_" & button_1.Name.ToString aber ich kann diese Zeichenfolge nicht in Objekt konvertieren.

Aktualisieren

Hier ist der Code, mit dem ich die Steuerelemente in die Schleife lade:

C_A_TEXT(x) = New TextBox() 
C_A_TEXT(x).Dock = System.Windows.Forms.DockStyle.Fill 
C_A_TEXT(x).Location = New System.Drawing.Point(270, 5) 
C_A_TEXT(x).Margin = New System.Windows.Forms.Padding(0) 
C_A_TEXT(x).Size = New System.Drawing.Size(70, 27) 
C_A_TEXT(x).TabIndex = 5 
C_A_TEXT(x).Name = "NEW_RECHARGE_COUNT_TEXT_" & x

Update 2

Hier ist noch mehr Code:

AddHandler C_A_BUTTONS(x).Click, AddressOf C_A_BUTTON 

Private Sub C_A_BUTTON(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    Dim thisButton As Button = sender Dim A = CType(Me.Controls("NEW_RECHARGE_COUNT_TEXT_1"), TextBox) 
    MsgBox(A.Text.ToString)  'Error!
End Sub