这篇文章给大家分享的是有关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.CountFor 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 ThenMe.gbxVoyage_HDR.Controls(i).
Enabled = p_EnabledEnd 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.PictureBoxdim 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如何删除控件”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,让大家可以学到更多知识,如果觉得文章不错,可以把它分享出去让更多的人看到吧!