VB.NET刪除控件具體應(yīng)用技巧分享
VB.NET開發(fā)平臺中擁有很多的控件。這些控件都有其特定的功能,幫助我們實(shí)現(xiàn)各種功能需求。不過有時也需要對一個控件進(jìn)行刪除,那么實(shí)際操作方法應(yīng)當(dāng)如何實(shí)現(xiàn)。下面就來看看VB.NET刪除控件的相關(guān)操作技巧。
當(dāng)一個控件是另一個控件的子控件,例如pictruebox里面又有3個子pictruebox,子控件的名字存儲在已知的變量當(dāng)中,而當(dāng)我們想刪除其中任意控件的時候,可以使用如下方法來實(shí)現(xiàn):
先看一段代碼:
控制控件狀態(tài)
- 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)。
回到先前的假設(shè),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
使用了控件數(shù)組,檔VB.NET刪除控件時,全部刪除的時候:Mainpic .Controls.Clear()
VB.NET刪除控件中第j個控件的時候:Mainpic .Controls.Remove(pics(j))
【編輯推薦】