0

我有一个TableLayoutPanel（有一行，三列）放置在表单上的 Panel 控件内。

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

我想执行如下操作：

当我单击按钮（在每行的第三列中）LABEL+TEXTBOX+BUTTON时，必须删除相关行，同时保留其他控件。

有人可以帮我解决吗？

4

2 回答 2

0

您需要在单击按钮时参考其他两个控件

我的建议 - -

'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
于 2012-11-23T12:08:53.297 回答
0

我建议您创建自己的用户控件，该控件包含所有 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

这将让您使用设计器来设计一行，您还可以在小的“行控件”中编写所有功能（如验证等），这将使您的代码更加简洁。

于 2012-11-23T12:02:10.010 回答