0

我不知道如何通过单击 Windows 表单中的按钮来删除文本框。

这是我的故事：

最初，我想通过单击按钮添加文本框，在网上搜索后，我能够在这个论坛上找到如何做到这一点。https://stackoverflow.com/questions/15461978/adding-new-textbox-with-button-click

我使用了用户“Rajaprabhu Aravindasam”（第二个答案）给出的代码。这只是我使用的部分代码（为了不让你感到困惑）：

Private Sub Button_AddTask_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_AddTask.Click
    count += 1

    TabPage_TaskStructure.Controls.Add(New Label() With _
                                       {.Name = "Label_Task" & count})
    TabPage_TaskStructure.Controls.Add(New RichTextBox() With _
                                       {.Name = "RichTextBox" & count})      
End Sub

现在，如您所见，按钮“Button_AddTask”（我的表单上的“+”按钮）的目的是创建富文本框及其各自的标签。假设富文本框和标签是在彼此下方创建的。

在“+”按钮旁边，有一个“-”按钮。我想要的是使用这个“-”按钮依次删除所有创建的文本框。也就是说，如果我用“+”按钮创建了4个文本框，当我点击“-”按钮时，第4个文本框将首先被删除，然后不会。3 后单击第二次，然后 no.2 后单击第三次，依此类推。

顺序部分不是问题，我完全知道该怎么做。这是我尝试过的部分代码：

Private Sub Button_DeleteTask_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_DeleteTask.Click
    TabPage_TaskStructure.Controls.Remove(New Label() With _
                                       {.Name = "Label_Task" & count})
    TabPage_TaskStructure.Controls.Remove(New RichTextBox() With _
                                       {.Name = "RichTextBox" & count})

    count -= 1

    If count = 1 Then
        Button_DeleteTask.Visible = False
    End If
End Sub

从逻辑上讲，我所做的只是将“添加”替换为“删除”，但我不知道用什么替换“新建”。所以我的问题是：需要使用什么来代替“新”？如果我需要使用完全不同的代码，请告诉我。

任何帮助是极大的赞赏。

更新：

好的，自从我提出这个问题以来，我已经做了一些研究，并且我已经能够推断出可以通过使用 For Each 循环来完成控件（标签和富文本框）的删除。在我的“-”按钮代码中，我已将前 4 行代码替换为：

Dim Ctrl As Control
For Each Ctrl In TabPage_TaskStructure.Controls
    If TypeOf Ctrl Is Label And Ctrl.Name = "Label_Task" & count Then
       TabPage_TaskStructure.Controls.Remove(Ctrl)
    ElseIf TypeOf Ctrl Is RichTextBox And Ctrl.Name = "RichTextBox" & count Then
        TabPage_TaskStructure.Controls.Remove(Ctrl)
    End If
Next

因此，当我单击“-”按钮时，程序会检查选项卡页 (TabPage_TaskStructure) 上的每个控件是名称为 ("Label_Task" & count') 的标签还是名称为 ("RichTextBox) 的富文本框" & count)，如果是，它们将被删除。其余代码相同。

它正在工作，但并不完全。它适用于标签，因为它们已成功删除，但不适用于富文本框。我不明白为什么。我已经尝试了其他控件的代码，例如日期时间选择器和文本框，但它也不适用于其中任何一个。它似乎只适用于标签。

另外，我尝试在默认的富文本框中使用该代码，并且成功了！但是对于在运行时创建的富文本框，它不起作用。

有人可以澄清一下吗？

4

1 回答 1

0

我不太擅长 vb，但从简单的逻辑来看，如果以及当接受“IF”参数时，代码将移至“End If”并跳过“Else”。试试这个：

Dim Ctrl As Control
    For Each Ctrl In TabPage_TaskStructure.Controls
        If TypeOf Ctrl Is Label And Ctrl.Name = "Label_Task" & count Then
            TabPage_TaskStructure.Controls.Remove(Ctrl)
        End If
        If TypeOf Ctrl Is RichTextBox And Ctrl.Name = "RichTextBox" & count Then
            TabPage_TaskStructure.Controls.Remove(Ctrl)
        End If
Next
于 2013-07-09T22:24:05.373 回答