- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复选组合框问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69847)
-- 发布时间：2015/6/11 18:18:00
-- [求助]复选组合框问题
有一复选组合框，其列表值为：全部|1|2|3|4|5|6|7|8|9|10
想实现：1.勾选“全部”时，1——10勾选，反之，则取消勾选。
2.打开下拉列表框时，让其勾选指定的选项，如，勾选3，5，8.
谢谢
-- 发布时间：2015/6/11 18:27:00
--
多选还是单选?
-- 发布时间：2015/6/11 18:30:00
--
多选
-- 发布时间：2015/6/11 18:31:00
--
此主题相关图片如下：qq截图20150611183344.png
-- 发布时间：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
-- 发布时间：2015/6/11 19:20:00
--
If e.Sender.Text = "全部" Then
e.Sender.Text = e.Sender.ComboList.Replace("全部|","").Replace("|",",")
End If
-- 发布时间：2015/6/11 19:28:00
--
如果要做你那个，就只能用下拉窗口去做了，参考
| 下载信息 [文件大小：308.0 KB 下载次数：10] | |
 点击浏览该文件:checkedlistbox例子.table |
-- 发布时间：2015/6/11 19:55:00
--
谢谢