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


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

主题：CheckedComboBox
帅哥哟，离线，有人找我吗？
全球警告
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：102 威望：0 精华：0 注册：2019/8/2 21:39:00 		CheckedComboBox  发帖心情 Post By：2019/8/2 21:42:00 [显示全部帖子]

请教各位高手，如何在CheckedComboBox的下拉窗口上增加“全选”和“反选”按钮
[此贴子已经被作者于2019/8/2 21:43:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
全球警告
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：102 威望：0 精华：0 注册：2019/8/2 21:39:00 		麻烦问问  发帖心情 Post By：2019/8/2 23:10:00 [显示全部帖子]

CheckedListBox，的‘全选“和”反选“，代码怎么写啊

 回到顶部
帅哥哟，离线，有人找我吗？
全球警告
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：102 威望：0 精华：0 注册：2019/8/2 21:39:00 		哎，确认和取消也不会啊  发帖心情 Post By：2019/8/2 23:19:00 [显示全部帖子]

哎，确认和取消也不会啊

 回到顶部
帅哥哟，离线，有人找我吗？
全球警告
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：102 威望：0 精华：0 注册：2019/8/2 21:39:00 		帮忙看看反选代码怎么写  发帖心情 Post By：2019/8/3 0:13:00 [显示全部帖子]

全选的倒是帮助上找到了Dim cst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
    For idx As Integer = 0 To cst.Items.Count - 1
            cst.SetItemChecked(idx, True)
    Next

 回到顶部
帅哥哟，离线，有人找我吗？
全球警告
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：102 威望：0 精华：0 注册：2019/8/2 21:39:00 		终于找到了  发帖心情 Post By：2019/8/3 0:33:00 [显示全部帖子]

Dim ckl As WinForm.CheckedListBox
 ckl = Forms("窗口4").Controls("CheckedListBox1")

 For i As Integer = 0 To ckl.Items.count - 1  '获取已经勾选的列
    If ckl.GetItemChecked(i) Then
    ckl.SetItemChecked(i, False)
    Else
     ckl.SetItemChecked(i, True)
     End  If
 Next

 

哪位高手帮忙看看，改进下
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询