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

VB.NET列表框怎样换行？

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

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

(Added

Attachment)

VB.NET列表框问题

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