Public Class Form1
網(wǎng)站建設(shè)哪家好,找成都創(chuàng)新互聯(lián)!專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了青島免費(fèi)建站歡迎大家使用!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListboxTotalItem As Integer = ListBox1.Items.Count - 1
Dim a(ListboxTotalItem) As String
For i As Integer = 0 To ListboxTotalItem
a(i) = i
Next
Label1.Text = a(5)
End Sub
End Class
-------------
一個(gè)Form1
一個(gè)Label1
一個(gè)Listbox1
一個(gè)Button1
在Listbox1中加入10個(gè)值
-------------
只是一個(gè)演示,其他的要靠自己。
1 本來就是單擊復(fù)選框選擇,再擊清除
2 失去焦點(diǎn)時(shí)隱藏選中可把listview的hideselection設(shè)為true
3 選中了那幾行可以依序檢查每個(gè)listviewitem的checked屬性是否為true
有這個(gè)條件是為了避免 當(dāng)列表沒有選項(xiàng)的時(shí)候 或者 有選項(xiàng)但沒有選中的時(shí)候 點(diǎn)擊刪除按鈕會(huì)引發(fā)錯(cuò)誤 selectindex =-1 是沒有選中的時(shí)候默認(rèn)值 而列表序號(hào)從0開始 刪除一個(gè)不存在的序號(hào)引發(fā)錯(cuò)誤
list1.additem j 意思就是把j添加至list1列表中,這是在一個(gè)for 循環(huán)中,循環(huán)了10次,添加了10次 j,即 list1 中 有10列分別為:1,3,6,10,15,21,28,36,45,55
下面又來了一個(gè)循環(huán), list1.removeitem 刪除列,刪除的是 list1.listcount - i ,list1.listcount 就是總列數(shù)為10,減去 i ,i 是1到4,即10-1,9-2,8-3,7-4 每減掉一次,list1.listcount 就少了一條記錄。
(注意,list1.listcount-1 是最后一條記錄)
減掉了第 9,7,5,3列
剩余為 1,3,6,15,28,45
結(jié)果為:3,15,28
'ListCount返回列表框中的項(xiàng)目總數(shù)
'ListCount-1是列表框中最后一個(gè)項(xiàng)目的索引號(hào)
'虧你提醒了,我寫錯(cuò)了,上面修改了,第一個(gè)索引為0,最后一個(gè)為9.
'也就是,問題所問的第二列的索引為1,第四列的索引為3...