扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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开始 删除一个不存在的序号引发错误
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网