主题：让列表框中已传递的流程不可以选择择

各位老师，

我设计了流程传递的窗口，如下图：

 
此主题相关图片如下：qq截图20120907185410.jpg

如果流程名称等于“录入”让它不可用（变成灰色的）我用了下面的代码（当然现在是不对的）

For Each s As String In drs
            clb.Items.Add(s)
           If clb.Value = "录入" Then
               clb.Enabled = False
           End If

 Next

正确的代码要怎么写？主要就是让它成灰色不可选择。

谢谢！

变灰是不可以的，不能选是可以的。

你可以在ItemCheck中判断：

Dim cst As WinForm.CheckedListBox = e.sender

if e.checked= False then
    If cst.Items(e.Index) = "录入" Then
        cst.SetItemChecked(e.Index,True)
    End If

end if

这样录入就始终处于选中状态。