VB.NET如何删除控件

这篇文章给大家分享的是有关VB.NET如何删除控件的内容。小编觉得挺实用的，因此分享给大家做个参考，一起跟随小编过来看看吧。

当一个控件是另一个控件的子控件，例如pictruebox里面又有3个子pictruebox,子控件的名字存储在已知的变量当中，而当我们想删除其中任意控件的时候，可以使用如下方法来实现：
先看一段代码：

控制控件状态

1. Private Sub mHDR_Control_Status
   (ByVal p_Enabled As Boolean)

2. Dim iControls As Integer

3. Dim i As Integer

4. iControls = Me.gbxVoyage_HDR.
   Controls.Count

5. For i = 0 To iControls - 1

6. If TypeOf (Me.gbxVoyage_HDR.
   Controls(i)) Is TextBox Or _

7. TypeOf (Me.gbxVoyage_HDR.Controls(i))
   Is Infragistics.Win.Misc.UltraButton Then

8. Me.gbxVoyage_HDR.Controls(i).
   Enabled = p_Enabled

9. End If

10. Next

11. dtpLoad_ETD.Enabled = p_Enabled

12. If gLoad_Type = "0" Then

13. btnSave.Enabled = p_Enabled

14. btnEdit.Enabled = Not p_Enabled

15. Else

16. btnSave.Enabled = False

17. btnEdit.Enabled = False

18. End If

19. txtVoyageNO.Enabled = False

20. End Sub

简单来说，就是用Me.gbxVoyage_HDR.Controls(i))，如果控件里面还有控件，就再加Controls(i)来控制Me.gbxVoyage_HDR.Controls(i).Controls(i)。

回到先前的假设，pictruebox里面又有3个子pictruebox，对其中任意一个做删除的主要代码如下：

1. Public pics(1000) As System.
   Windows.Forms.PictureBox

2. dim pic1 as new New PictureBox

3. dim pic2 as new New PictureBox

4. dim pic3 as new New PictureBox

5. dim j as integer=0

6. dim Mainpic as new New PictureBox

7. Mainpic .Controls.Add(pic1)

8. pics(j)=pic1

9. j+=1

10. Mainpic .Controls.Add(pic2)

11. pics(j)=pic2

12. j+=1

13. Mainpic .Controls.Add(pic3)

14. pics(j)=pic3

15. j+=1

使用了控件数组，档VB.NET删除控件时，全部删除的时候:Mainpic .Controls.Clear()

VB.NET删除控件中第j个控件的时候：Mainpic .Controls.Remove(pics(j))

感谢各位的阅读！关于"VB.NET如何删除控件"这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识，如果觉得文章不错，可以把它分享出去让更多的人看到吧！