如何选中或取消选中VB.NET中的所有项目CheckedListBox控件

我需要选择并取消选择VB.NET中的所有项目CheckedListBox控件，请执行此操作的最佳方法是什么？如何选中或取消选中VB.NET中的所有项目CheckedListBox控件

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     With clbCheckedListBox 

     .Items.Add("Select/UnSelect All") 
     .Items.Add("Enero") 
     .Items.Add("Febrero") 
     .Items.Add("Marzo") 
     .Items.Add("Abril") 
     .Items.Add("Mayo") 
     .Items.Add("Junio") 
     .Items.Add("Julio") 
     .Items.Add("Agosto") 
     .Items.Add("Septiembre") 
     .Items.Add("Octubre") 
     .Items.Add("Noviembre") 
     .Items.Add("Diciembre") 

     .SelectedIndex = 0 

    End With 


End Sub 


    Private Sub clbCheckedListBox_ItemCheck(sender As Object, e As System.Windows.Forms.ItemCheckEventArgs) Handles clbCheckedListBox.ItemCheck 

    If e.Index = 0 Then 

     If e.NewValue = CheckState.Checked Then 

      For idx As Integer = 1 To Me.clbCheckedListBox.Items.Count - 1 
       Me.clbCheckedListBox.SetItemCheckState(idx, CheckState.Checked) 
      Next 

     ElseIf e.NewValue = CheckState.Unchecked Then 

      For idx As Integer = 1 To Me.clbCheckedListBox.Items.Count - 1 
       Me.clbCheckedListBox.SetItemCheckState(idx, CheckState.Unchecked) 
      Next 

     End If 

    End If 

End Sub

盘后上面的代码工作对我很好！

来源

2012-02-24 RicardoBalda

请标记相应的答案。 – 2012-11-30 14:27:37

里卡多，也许这可能是你在找什么：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim items$() = New String() {"Select/UnSelect All", "Enero", 
    "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", 
    "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"} 
    For Each Str As String In items : clbCheckedListBox.Items.Add(Str) : Next 
End Sub ' Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) 

Private Sub clbCheckedListBox_ItemCheck(sender As System.Object, e As System.Windows.Forms.ItemCheckEventArgs) Handles clbCheckedListBox.ItemCheck 
    If e.Index = 0 Then 
     Dim newCheckedState As CheckState = e.NewValue 
     For idx As Integer = 1 To clbCheckedListBox.Items.Count - 1 
      Me.clbCheckedListBox.SetItemCheckState(idx, newCheckedState) 
     Next 
    End If 
End Sub

来源

2013-11-04 22:13:18 Edward

我知道这被标记为答案，但是你从索引1开始，并且SetItemCheckState在我曾经工作过的任何代码中都不工作，只有SetItemChecked工作。 – Keith 2015-03-27 18:01:14

@Keith：是的，它故意跳过第一个项目，因为第一个项目是'选择/取消全选'。 – Edward 2015-04-04 18:05:28

我在发布之前测试了该代码。所以我知道代码为我工作。 Keith，SetItemCheckState在WinForms或WPF中不适用于你？我使用了一个WinForm项目。因为在我看来，VS VS 2010和VS 2013都是降级的。但我不认为VS版本的问题很重要。我知道我使用.NET 4环境（我认为.NET 4.5）。有时这与MS怪癖有关。也许你可能想比较你的环境不适用于SetItemCheckState到我的环境。 – Edward 2015-04-04 18:12:18

你的意思是这样的：

Dim checked As Boolean = True ' Set to True or False, as required. 
For i As Integer = 0 To CheckedListBox1.Items.Count - 1 
    CheckedListBox1.SetItemChecked(i, checked) 
Next

在这里，我只是通过所有CheckedListBox项循环，并设置其选中状态。

来源

2012-02-24 00:23:05

To check all CheckedListBox Item: 

For i As Integer = 0 To CheckedListBox1.Items.Count - 1 
    CheckedListBox1.SetItemChecked(i, True) 
Next 

To uncheck all CheckedListBox Item: 

For i As Integer = 0 To CheckedListBox1.Items.Count - 1 
    CheckedListBox1.SetItemChecked(i, false) 
Next

来源

2012-11-16 05:20:48

If button.Text = "Select All" Then 
    For i As Integer = 0 To checklist.Items.Count - 1 
     checklist.SetItemChecked(i, True) 
    Next 
    Button.Text = "Deselect All" 
Else 
    For i As Integer = 0 To checklist.Items.Count - 1 
     checklist.SetItemChecked(i, False) 
     Button.Text = "Select All" 
    Next 
End If

来源

2012-12-17 11:29:16 Avinash

增加了一个单独的checkbox称为 “全选”。在检查和取消选中checkbox时，checklistbox的项目可以被选中或取消选中。所以，你可以在你的代码的任何地方调用这个函数Kb()：

Private Sub ChkSelectAll_Click(sender As Object, e As EventArgs) Handles ChkSelectAll.Click 
    Kb(ChkSelectAll.CheckState) 
End Sub 

Private Sub Kb(ByVal Key As Boolean) 
    For i As Integer = 0 To ChkLstServices.Items.Count - 1 
     ChkLstServices.SetItemChecked(i, Key) 
    Next 
End Sub

来源

2014-10-05 06:01:38 Nikul

把这个代码在SelectedValueChanged事件。

Private Sub clbCheckedListBox_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles ContrListCheckBox.SelectedValueChanged 
    If clbCheckedListBox.SelectedIndex = 0 Then 
     If clbCheckedListBox.GetItemChecked(0) = False Then 
      For idx As Integer = 1 To clbCheckedListBox.Items.Count - 1 

       Me.clbCheckedListBox.SetItemChecked(idx, False) 
      Next 
     Else 
      For idx As Integer = 1 To ContrListCheckBox.Items.Count - 1 

       Me.clbCheckedListBox.SetItemChecked(idx, True) 
      Next 
     End If 
    ElseIf clbCheckedListBox.SelectedIndex > 0 Then 
     If clbCheckedListBox.CheckedItems.Count = clbCheckedListBox.Items.Count - 1 And clbCheckedListBox.GetItemChecked(0) = False Then 
      clbCheckedListBox.SetItemCheckState(0, CheckState.Checked) 
     End If 
     For idx As Integer = 1 To clbCheckedListBox.Items.Count - 1 

      If clbCheckedListBox.GetItemChecked(idx) = False Then 
       clbCheckedListBox.SetItemCheckState(0, CheckState.Unchecked) 

      End If 
     Next 
    End If 
End Sub

其他的解决方案是正确的，但如果你想取消的CheckBoxList内的另一个复选框或清空的CheckBoxList没有Select All复选框顶端的复选框将保持检查，所以上面的代码应该解决这个问题，这是不符合逻辑。

来源

2016-10-20 16:59:31

我发现clbCheckedListBox.clearSelection()适用于取消所有选择。

来源

2017-07-28 22:16:53 Trey

欢迎来到SO Trey :-)。一般来说，添加这样的问题并不是一个好主意，已经有了一个可以接受的答案。此外，鼓励回答不仅仅写一行 - 否则可能会有更好的评论。最后，请尝试正确格式的贡献，因为它有助于可读性;在这种情况下，代码可以格式化（我会继续编辑，以便看到我的意思）。 – Toby 2017-07-28 22:50:42

@Trey你的意思是'.ClearSelected（）'？我的VisualStudio 2017与.NET目标框架4.5不接受你的建议。只是记录：这不会取消选中项目，只需取消选择它们。 – PeterCo 2018-02-14 13:04:57

如何选中或取消选中VB.NET中的所有项目CheckedListBox控件

回答

相关问题