如何在VB.Net windows应用程序中定位动态创建的控件？

我有一个

TableLayoutPanel

（有一行三列），它放在窗体的面板控件中

我的表单也有一个命令按钮。每次单击按钮时，都会动态创建标签（在第一列中），文本框（在第二列中）和按钮（在第三列中）

我想执行如下操作：

当我单击按钮（每行的第三列）时，必须删除相关行的

标签+文本框+按钮

，同时保持其他控件不变

---

有人能帮我解决吗？

我建议您创建自己的用户控件，它包含所有3个元素（标签、文本框、按钮），并在每次单击主按钮时添加此控件。然后，您可以将事件处理程序连接到单击“行”控件的按钮，并从主窗体处理它。总体思路如下：

在用户控件中，您需要添加：

Public Event MyButtonClicked

Public Sub MyButtonClick() Handles MyButtonClick
    Raise Event MyButtonClicked(Me)
End Sub

在主窗体上，您将有类似的内容

Public Sub CreateNewRow() Handles MainButton.Click
    Dim NewRow as New MyUserControl
    AddHandler NewRow.Click, AddressOf RemoveRow
    FlowLayoutPanel.Controls.Add(NewRow)
End Sub

Public Sub RemoveRow(ByRef Row as MyUserControl)
    FlowLayoutPanel.Controls.Remove(Row)
End Sub

---

这将允许您使用designer设计一行，您还可以在小型“行控件”中对所有功能（如验证等）进行编码，这将使您的代码稍微更干净

您需要在单击按钮时引用其他两个控件

我的建议---

'craete a class to hold all controls in single object
Public Class MyCtls
    Public mLBL As Label
    Public mTXT As TextBox
    Public mBTN As Button

    Public Sub New(ByVal LBL As Label, ByVal TXT As TextBox, ByVal BTN As Button)
        MyBase.New()
        mLBL = LBL
        mTXT = TXT
        mBTN = BTN
    End Sub
End Class

'While creating new row create class reference and store it somewhere in accessed control
'For example we are using tag prosperity of button for this
'Now add handler for this button
Private Sub CreateNewRow()
    Dim nRow As MyCtls = New MyCtls(New Label, New TextBox, New Button)
    'set postition and add to parrent
    nRow.mBTN.Tag = nRow
    AddHandler nRow.mBTN.Click, AddressOf mBTN_Click
End Sub

'now for removing this row
Private Sub mBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim thisRow As MyCtls = DirectCast(CType(sender, Button).Tag, MyCtls)
    'remove handler first
    RemoveHandler thisRow.mBTN.Click, AddressOf mBTN_Click

    'remove controls from its parent and dispose them
    yourparentcontrol.Controls.Remove(thisRow.mLBL)
    yourparentcontrol.Controls.Remove(thisRow.mTXT)
    yourparentcontrol.Controls.Remove(thisRow.mBTN)

    'dispose them all
    thisRow.mLBL.Dispose() 'do as this
End Sub