vb.net分组列表框 vb列表框和组合框

VB.NET 如何将ListBox列表框的所有项复制到一个数组中，便于排序？谢谢解答

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

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...

文章标题：vb.net分组列表框 vb列表框和组合框
标题网址：http://myzitong.com/article/hghjdp.html