vb.net中设置checkedlistbox控件指定行为disabled的初级解决方法

 由于 checkedlistbox 控件不能设置 单个项的 enabled的 属性。所以只能以这样的方式模仿。不过 看不到 被 enabled 的项 变虚 的效果。

我的能力有限，只能做到这个样子了。如果要实现更好的功能和效果。估计只能自己创建一个控件来重写 checkedlistbox 控件了。

定义一个 公共的 ArrayList 对象，
Dim t As ArrayList

装载 checkedlistbox 对象的数据

 


  Me.CheckedListBox1.Items.Add("塞北的雪", True)


        Me.CheckedListBox1.Items.Add("Northsnow", False)


        Me.CheckedListBox1.Items.Add("CSDN", True)


        Me.CheckedListBox1.Items.Add("中国最大的开发者网络", False)


        Me.CheckedListBox1.Items.Add("CRC", False)


        Me.CheckedListBox1.Items.Add("长春轨道客车股份有限公司", True)

 

设置某些项为 不可修改（本例中设置 2 和 4）

       


Dim m() As Integer = {2, 4}  '其中的 2，4 分别是 checkedlistbox 中的项的索引


        t = New ArrayList(m)



然后在 checkedlistbox的 itemcheck 事件中进行处理

 




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




        If t IsNot Nothing AndAlso t.Count > 0 Then


            If t.IndexOf(e.Index) >= 0 Then


                e.NewValue = e.CurrentValue


            End If


        End If


    End Sub