在 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