如何从另一个 Sub 中删除控件，而不是最初在 VB 中创建控件的子 .NET

Question

我已经编写了一些代码来在每次代码运行时创建一个 PictureBox，效果很好。

    Public Sub BtnHit_Click(sender As Object, e As EventArgs) Handles BtnHit.Click
            
            Dim PicBoxNewCard As New PictureBox
            PicBoxNewCard.Width = 114
            PicBoxNewCard.Height = 166
            PicBoxNewCard.SizeMode = PictureBoxSizeMode.Zoom
            DrawCard(PicBoxNewCard)
            Me.Controls.Add(PicBoxNewCard)
            PicBoxNewCard.Location = New Point((257 + (57 * DrawnCardCounter)), 349)

但我希望能够通过按下一个按钮来删除这些创建的 PictureBoxes，该按钮与创建 Boxes 的子按钮不同。

我用谷歌搜索并找到了创建类、面板等的参考资料，但没有取得任何成功。 我找到了使它工作所需的确切代码 (Me.Controls.Remove(PicBoxNewCard))，但它似乎只在同一个 Sub 中执行时才工作。

Answer 1

设置Name或Tag属性，稍后在搜索要删除的 PictureBox 时使用它。

PicBoxNewCard.Name = $"Card{DrawnCardCounter}"

   Private Sub RemoveButton_Click(sender As Object, e As EventArgs) Handles RemoveButton.Click
        RemoveCardPicBox(10)
    End Sub

    Private Sub RemoveCardPicBox(CardNumber As Integer)

        Dim delpicBox As PictureBox = Me.Controls.OfType(Of PictureBox).Where(Function(x) x.Name = $"Card{CardNumber}").FirstOrDefault
        If Not delpicBox Is Nothing Then
            Me.Controls.Remove(delpicBox)
        End If

    End Sub