十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Public Class Form1
网站建设哪家好,找成都创新互联!专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了青岛免费建站欢迎大家使用!
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
-------------
一个Form1
一个Label1
一个Listbox1
一个Button1
在Listbox1中加入10个值
-------------
只是一个演示,其他的要靠自己。
1 本来就是单击复选框选择,再击清除
2 失去焦点时隐藏选中可把listview的hideselection设为true
3 选中了那几行可以依序检查每个listviewitem的checked属性是否为true
有这个条件是为了避免 当列表没有选项的时候 或者 有选项但没有选中的时候 点击删除按钮会引发错误 selectindex =-1 是没有选中的时候默认值 而列表序号从0开始 删除一个不存在的序号引发错误
list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中,循环了10次,添加了10次 j,即 list1 中 有10列分别为:1,3,6,10,15,21,28,36,45,55
下面又来了一个循环, list1.removeitem 删除列,删除的是 list1.listcount - i ,list1.listcount 就是总列数为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
结果为:3,15,28
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号
'亏你提醒了,我写错了,上面修改了,第一个索引为0,最后一个为9.
'也就是,问题所问的第二列的索引为1,第四列的索引为3...