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