变灰是不可以的,不能选是可以的。
你可以在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
这样录入就始终处于选中状态。