vb.net - 如何要求 CheckedListBox 至少选择一项

Question

在 VS2005 中使用 VB.NET 中的 CheckListBox，如何强制要求至少选择一项？

您可以在设计时选择其中一项以使其成为默认项吗？

处理这种情况的验证部分的最佳方法是什么？什么时候应该要求用户勾选其中一个框？

Answer 1

无论是防止用户取消选中最后一个选中的项目，还是在继续之前验证至少一个项目已被选中，这两种想法都相当容易实现。

如何防止用户取消选中最后一个选中项

1.确保至少选中一项以开头(例如，在表单的 Load 事件中):

Private Sub frm_Load(ByVal sender As Object, ByVal e As EventArgs)
    clb.SetItemChecked(0, True) ' whatever index you want as your default '
End Sub

<强>2。向您的 ItemCheck 事件处理程序添加一些简单的逻辑:

Private Sub clb_ItemCheck(ByVal sender As Object, ByVal e As ItemCheckEventArgs)
    If clb.CheckedItems.Count = 1 Then ' only one item is still checked... '
        If e.CurrentValue = CheckState.Checked Then ' ...and this is it... '
            e.NewValue = CheckState.Checked ' ...so keep it checked '
        End If
    End If
End Sub

如何验证至少一项被选中

Private Sub btn_Click(ByVal sender As Object, ByVal e As EventArgs)
    ' you could also put the below in its own method '
    If clb.CheckedItems.Count < 1 Then
        MsgBox("You must check at least one item.")
        Return
    End If

    ' do whatever you need to do '
End Sub