listbox怎么让他多选？

Question

listbox多选以后，怎么判断他能多选哪几个

Answer 1

设定listbox的MultiSelect属性为1或2，即可实现多选

Answer 2

Private Sub Command4_Click()
 Dim i As Long
 For i = List1.ListCount - 1 To 0 Step -1
        'ListCount返回列表框中的项目总数
        'ListCount-1是列表框中最后一个项目的索引号
          
            '判断该项目是否被选中，Selected()返回布尔值
            If List1.Selected(i) Then
                
                Debug.Print List1.List(i)
                
            End If
        Next
End Sub如果要删除所选的话：Private Sub Command2_Click()
    
    Dim i As Integer
    '判断列表框是否只有一个项目被选中
    If List1.SelCount = 1 Then
    
        List1.RemoveItem List1.ListIndex
        
    ElseIf List1.ListCount > 1 Then
    
        '删除列表框中的所选中的多个项目
        For i = List1.ListCount - 1 To 0 Step -1
        'ListCount返回列表框中的项目总数
        'ListCount-1是列表框中最后一个项目的索引号
            
            '判断该项目是否被选中，Selected()返回布尔值
            If List1.Selected(i) Then
                '删除索引号为i的项目
                List1.RemoveItem i
                
            End If
        Next
    End If
    
    
End Sub

Answer 3

设定listbox的MultiSelect属性为1或2