如果ListBox中有多个选项，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