ListBoxで複数の選択肢がある場合、MsgBoxが開きます

Question

ListBoxProjectsで複数の選択が行われている場合、MsgBox警告を開くと思う次のコードがあります。

ただし、選択肢が1つしかない場合は、MsgBoxが開きます。選択肢がない場合、MsgBoxは開きません。ビットは、この1つ、すべての喜んで受け取ったヘルプに固執した。

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