vb6 - 在 vb6 中限制列表框中的选择

如何在 VB6 中限制 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

最佳答案

这是答案:

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

关于vb6 - 在 vb6 中限制列表框中的选择，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11499635/