VB.NET删除控件具体应用技巧分享

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

当一个控件是另一个控件的子控件，例如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))

【编辑推荐】

1. VB.NET动态属性基本概念及应用方法介绍
2. VB.NET通知控件基本概念解析
3. VB.NET消息队列相关内容详细介绍
4. VB.NET浮动窗体创建技巧分享
5. VB.NET菜单项目相关操作技巧分享