vbnet列表框 vb中列表框

关于VB.NET的列表框问题

Public Class Form1

创新互联建站主营历城网站建设的网络公司,主营网站建设方案,app开发定制,历城h5微信平台小程序开发搭建,历城网站营销推广欢迎历城等地区企业咨询

Dim N As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For N = 1 To 100

ListBox1.Items.Add(N)

Next N

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

On Error GoTo Err

For N = 0 To ListBox1.Items.Count - 1

MsgBox(ListBox1.Items.Item(ListBox1.SelectedIndices.Item(N)))

Next N

Exit Sub

Err:

MsgBox("选择条目数:" N)

End Sub

End Class

1.把ListBox的MultiSelect的属性设为2

2.对滚动条的Scroll事件进行编写

(Added

Attachment)

有这个条件是为了避免当列表没有选项的时候或者有选项但没有选中的时候点击删除按钮会引发错误 selectindex =-1 是没有选中的时候默认值而列表序号从0开始删除一个不存在的序号引发错误

网站题目：vbnet列表框 vb中列表框
本文链接：http://cdxtjz.cn/article/doosiph.html