VB.NET-如何限制列表视图中的复选框选择？

Question

我想将列表视图中的复选框选择限制为 2 请帮忙。

If lvbooklist.CheckedItems.Count >= 2 Then
     e.NewValue = CheckState.Unchecked
     MsgBox("Only 2 Book can be borrow per day")
Else

End If

Answer 1

您的代码应该在 ItemCheck 事件中，并且您应该只阻止 CheckBox 从 Unchecked 状态变为 Checked 状态（否则，当您选择了两个项目时，当您取消选中一个项目时，它们也会收到一条消息已经）：

Private Sub lvbooklist_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles lvbooklist.ItemCheck
    If lvbooklist.CheckedItems.Count = 2 AndAlso e.CurrentValue = CheckState.Unchecked Then
        e.NewValue = CheckState.Unchecked
        MessageBox.Show("Only 2 Books can be borrowed per day.")
    End If
End Sub