以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复选列表框单选的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23233)

--  作者:zpx_2012
--  发布时间:2012/9/6 12:02:00
--  复选列表框单选的代码

各位老师,

 

做了个流程传递的窗口,想实现复选框选中一个,其他的就不能选中,请问代码怎么写?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120906120113.jpg
图片点击可在新窗口打开查看

谢谢!


--  作者:狐狸爸爸
--  发布时间:2012/9/6 12:28:00
--  

设置这个控件的Itemcheck事件:

 

If e.Checked Then
    Dim cst As WinForm.CheckedListBox = e.sender
    For i As Integer = 0 To cst.Items.count - 1
        If i <> e.Index Then
            cst.SetItemChecked(i, False)
        End If
    Next
End If


--  作者:zpx_2012
--  发布时间:2012/9/6 13:21:00
--  
谢谢!