(1)如果ComboBox中的不是通過數據綁定得到的,用ComboBox.Items.Clear?方法?從?ComboBox?中移除所有項。
創(chuàng)新互聯(lián)-專業(yè)網站定制、快速模板網站建設、高性價比綿陽網站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式綿陽網站制作公司更省心,省錢,快速模板網站建設找我們,業(yè)務覆蓋綿陽地區(qū)。費用合理售后完善,十余年實體公司更值得信賴。
'清除所有項
ComboBox1.Items.Clear()
'清除ComboBox1顯示
ComboBox1.ResetText()
(1)如果ComboBox中的是通過數據綁定得到的,在用ComboBox.Items.Clear?方法?從?ComboBox?中移除所有項之前,先斷開綁定的數據源。
'斷開數據源
ComboBox1.DataSource?=?Nothing
'清除所有項
ComboBox1.Items.Clear()
'清除ComboBox1顯示
ComboBox1.ResetText()
來給你寫了個函數,拿去用,不謝
Function?RemoveAt(Of?T)(ByVal?arr?As?T(),?ByVal?index?As?Integer)?As?T()
Dim?uBound?=?arr.GetUpperBound(0)
Dim?lBound?=?arr.GetLowerBound(0)
Dim?arrLen?=?uBound?-?lBound
If?index??lBound?OrElse?index??uBound?Then
Throw?New?ArgumentOutOfRangeException(?_
String.Format("Index?must?be?from?{0}?to?{1}.",?lBound,?uBound))
Else
Dim?outArr(arrLen?-?1)?As?T
Array.Copy(arr,?0,?outArr,?0,?index)
Array.Copy(arr,?index?+?1,?outArr,?index,?uBound?-?index)
Return?outArr
End?If
End?Function
For i As Integer = 0 To GroupBox1.Controls.Count - 1
If GroupBox1.Controls(i).GetType = GetType(TextBox) Then
GroupBox1.Controls(i).Text = ""
End If
Next
Erase 數組名
要注意,如果是固定數組,則所有元素的值被初始化(字符型為空字符串,數值型為0),數組的大小是不變的;如果是動態(tài)數組,則所有元素被刪除,內存空間被回收,要重新ReDim才能使用。Private Sub Form_Click()Dim a(9) As Integer, i As IntegerRandomizePrint "清除前:"For i = 0 To 9 a(i) = Rnd * 100 Print a(i);NextPrintErase aPrint "清除后"For i = 0 To 9 Print a(i);NextPrintEnd Sub
刪除數組元素只能用于動態(tài)數組,否則元素只能清零(整型)或清空(字符)
如數組a
清0 a(0)=0
清空 a(0)=""
動態(tài)數組清空:erase a