3

如何限制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
4

1 回答 1

5

这是答案:

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
于 2012-07-16T07:24:27.290 回答