Foxtable(狐表)用户栏目专家坐堂 → checklistbox


  共有2368人关注过本帖树形打印复制链接

主题:checklistbox

帅哥哟,离线,有人找我吗?
有点酸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2014/9/6 22:19:00 [显示全部帖子]

Dim cst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim cnt As Integer
For idx As Integer = 0 To cst.Items.Count - 1
    If e.Checked Then
        cnt = cnt + 1
    End If
Next
e.Form.Controls("button1").Enabled = (cnt > 0)

 回到顶部