CheckedListBox 设置checkbox 为不可操作

事实上CheckedListBox中checkbox 并没有Enabled属性，但是我们却经常想做到这样的操作：根据自己的条件，让某些选项永远处在checked 状态，处理方法有很多中，我使用的是以下方法：

 

1、 CheckedListBox并不能直接与DataSet进行绑定，因此在绑定前做一些处理：

        Dim CheckedListBoxItems As New ArrayList()
        For Each dr As DataRow In Me.dataset.Tables(0).Rows
            CheckedListBoxItems .Add(dr("test"))
        Next
        Me.CheckedListBox1.DataSource = CheckedListBoxItems

 

2、根据条件设定默认的勾选项

       

           If (condition1=condition2) Then
                        Me.CheckedListBox1.SetItemChecked(i, True)
            End If

 

3、当对CheckedListBox中默认选择项进行操作时，做一些处理让其一直处于checked状态，用户所看到的就是无法对其进行操作

  Private Sub CheckedListBox1_ItemCheck(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck

       

            If e.NewValue = CheckState.Unchecked Then

                    If (condition1=condition2) Then
                         e.NewValue = CheckState.Checked
                     End If
            End If

 

    End Sub