如果列表框中有多個選擇，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