如果列表框中有多个选择，MsgBox会打开

Question

如果ListBoxProjects中有多个选择，我想以下代码会打开MsgBox警告。

但是，如果只有一个选择，它也会打开MsgBox。如果没有选择，它不会打开MsgBox。位卡在这一个，任何帮助感激地收到。

If Me.ListBoxProjects.ListIndex > 1 Then 
MsgBox "You can only edit Projects 1 at a time", vbExclamation, "Project Editing" 
End If 

Answer 1

ListIndex属性返回所选项目的位置。 为了达到你想要的你需要你需要访问ItemSelected集合的Count属性。

If ListBoxProjects.ItemsSelected.Count > 1 Then 
    MsgBox "You can only edit Projects 1 at a time", vbExclamation, "Project Editing" 
End If 

Answer 2

使用Selected属性数组：

For i = 0 To ListBox1.ListCount - 1 
    If ListBox1.Selected(i) = True Then 
     ' do something 

    End If 
Next i