Foxtable(狐表)用户栏目专家坐堂 → [求助]复选组合框问题


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

主题:[求助]复选组合框问题

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]复选组合框问题  发帖心情 Post By:2015/6/11 18:18:00 [只看该作者]

有一复选组合框,其列表值为:全部|1|2|3|4|5|6|7|8|9|10
想实现:1.勾选“全部”时,1——10勾选,反之,则取消勾选。
2.打开下拉列表框时,让其勾选指定的选项,如,勾选3,5,8.

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13902 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2015/6/11 18:27:00 [只看该作者]

多选还是单选?

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/6/11 18:30:00 [只看该作者]

多选

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/6/11 18:31:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13902 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2015/6/11 18:47:00 [只看该作者]

TextChanged


Dim lst As WinForm.CheckedComboBox

lst = Forms("窗口1").Controls("CheckedComboBox1")

If e.Form.Controls("CheckedComboBox1").text="全选" Then

lst.Value = "1,2,3,4,5,6,7,8,9,10"

End If


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/11 19:20:00 [只看该作者]

If e.Sender.Text = "全部" Then
    e.Sender.Text = e.Sender.ComboList.Replace("全部|","").Replace("|",",")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/11 19:28:00 [只看该作者]

 如果要做你那个,就只能用下拉窗口去做了,参考

 

下载信息  [文件大小:308.0 KB  下载次数:10]
图片点击可在新窗口打开查看点击浏览该文件:checkedlistbox例子.table


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/6/11 19:55:00 [只看该作者]

谢谢


 回到顶部