VB.NET开发平台中拥有很多的控件。这些控件都有其特定的功能，帮助我们实现各种功能需求。不过有时也需要对一个控件进行删除，那么实际操作方法应当如何实现。下面就来看看VB.NET删除控件的相关操作技巧。

10年的蒙自网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整蒙自建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“蒙自网站设计”,“蒙自网站推广”以来，每个客户项目都认真落实执行。

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

控制控件状态

 
 
 

  
  
  
Private Sub mHDR_Control_Status
(ByVal p_Enabled As Boolean)  
  
  
  
Dim iControls As Integer  
  
  
  
Dim i As Integer  
  
  
  
iControls = Me.gbxVoyage_HDR.
Controls.Count  
  
  
  
For i = 0 To iControls - 1  
  
  
  
If TypeOf (Me.gbxVoyage_HDR.
Controls(i)) Is TextBox Or _  
  
  
  
TypeOf (Me.gbxVoyage_HDR.Controls(i)) 
Is Infragistics.Win.Misc.UltraButton Then  
  
  
  
Me.gbxVoyage_HDR.Controls(i).
Enabled = p_Enabled 
  
  
  
End If  
  
  
  
Next  
  
  
  
dtpLoad_ETD.Enabled = p_Enabled 
  
  
  
If gLoad_Type = "0" Then  
  
  
  
btnSave.Enabled = p_Enabled 
  
  
  
btnEdit.Enabled = Not p_Enabled  
  
  
  
Else  
  
  
  
btnSave.Enabled = False 
  
  
  
btnEdit.Enabled = False 
  
  
  
End If  
  
  
  
txtVoyageNO.Enabled = False 
  
  
  
End Sub 
 
 
 

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

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

 
 
 

  
  
  
Public pics(1000) As System.
Windows.Forms.PictureBox  
  
  
  
dim pic1 as new New PictureBox  
  
  
  
dim pic2 as new New PictureBox  
  
  
  
dim pic3 as new New PictureBox  
  
  
  
dim j as integer=0 
  
  
  
dim Mainpic as new New PictureBox  
  
  
  
Mainpic .Controls.Add(pic1)  
  
  
  
pics(j)=pic1  
  
  
  
j+=1  
  
  
  
Mainpic .Controls.Add(pic2)  
  
  
  
pics(j)=pic2  
  
  
  
j+=1  
  
  
  
Mainpic .Controls.Add(pic3)  
  
  
  
pics(j)=pic3  
  
  
  
j+=1 
 
 
 

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

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

名称栏目：VB.NET删除控件具体应用技巧分享
本文网址：https://chengdu.cdxwcx.cn/article/djiejog.html