以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何控制checklistbox  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56492)
--  作者：riyuan
--  发布时间：2014/9/6 15:30:00
--  如何控制checklistbox
请教判断没有任何选择项目，按钮enabled为假，哪怕有一个选择按钮enabled为真

    Dim cst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
 For idx As Integer = 0 To cst.Items.Count - 1

 If e.Checked Then
               e.Form.Controls("button1").Enabled=True
Else
e.Form.Controls("button1").Enabled=False
Exit For
End If
Next
图片点击可在新窗口打开查看此主题相关图片如下：大.jpg
图片点击可在新窗口打开查看
--  作者：lsy
--  发布时间：2014/9/6 16:11:00
--  

If e.Form.Controls("CheckedListBox1").Value > "" Then   
    e.Form.Controls("button1").Enabled = True
Else
    e.Form.Controls("button1").Enabled = False

    Exit For
End If