vb.net已經(jīng)去掉了控件數(shù)組這個(gè)類,不過有個(gè)代替該方式的一個(gè)屬性:Tag,你可以把這些關(guān)聯(lián)的Tag屬性設(shè)置為同一標(biāo)記,如:a。然后遍歷所有的checkbox并且tag為a的則選定:Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一個(gè)容器里,比如groupbox,那可以用groupbox.controls
創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括石門網(wǎng)站建設(shè)、石門網(wǎng)站制作、石門網(wǎng)頁制作以及石門網(wǎng)絡(luò)營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,石門網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到石門省份的部分城市,未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
If ctl.GetType().Name.ToLower() = "checkbox" Then
CType(ctl, CheckBox).Checked = CheckBox3.Checked
End If
NextEnd Sub
來給你寫了個(gè)函數(shù),拿去用,不謝
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
刪除數(shù)組元素很簡單,重新聲明數(shù)組即可,代碼如下
Redim [Preserve] 數(shù)組名 (下標(biāo)上界)
這個(gè)也可以稱為動態(tài)數(shù)組,這個(gè)東西是基礎(chǔ),非常重要。
這個(gè)功能就等于說,把原來的數(shù)組重新聲明,Preserve是可選項(xiàng),他的意思就代表是否保留數(shù)組內(nèi)容,這是重點(diǎn),如果你想刪除數(shù)組中的元素,就不要寫Preserve,這個(gè)方法的控制性也很好,可以重新聲明數(shù)組的元素,各個(gè)方面都很有用,希望采納!謝謝!
當(dāng)前題目:vb.net數(shù)組清零 vba如何將數(shù)組清空
文章分享:http://www.chinadenli.net/article22/ddohjjc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站排名、品牌網(wǎng)站設(shè)計(jì)、全網(wǎng)營銷推廣、軟件開發(fā)、用戶體驗(yàn)、做網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)