vb6 - vb6のリストボックスで選択を制限する

Question

VB6でListBoxの選択を制限するにはどうすればよいですか? 私が欲しいもの:ユーザーは ListBox から最大 8 項目を選択できます。

私はこのコードを使用しています：

Private Sub lstBox1_Click()
     If lstBox1.SelCount > 8 Then
        MsgBox "Maximum 8 items can be selected."             
       'I want here return false
     End if
End Sub

Answer 1

答えは次のとおりです。

lstBox1.Selected(lstBox1.ListIndex) = False

例：

Private Sub lstBox1_Click()
     If lstBox1.SelCount > 8 Then
        MsgBox "Maximum 8 items can be selected."             
       'I want here return false
        lstBox1.Selected(lstBox1.ListIndex) = False
     End if
End Sub