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))
【編輯推薦】