以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教色王  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97167)
--  作者：hbhb
--  发布时间：2017/3/7 12:19:00
--  请教色王
大师：请问如何实现窗口的复选框控件增加一个全选项目，点击全选项目即刻显示其他项目也勾选，再按一次去掉，一句话就像excel的自定义筛选下拉窗口一样的效果？
--  作者：wyz20130512
--  发布时间：2017/3/7 14:09:00
--  
1.将多个复选框放置在一个分组框控件中
2.在分组框的Clikc事件写代码：
Dim chb1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim chb2 As WinForm.CheckBox = e.Form.Controls("CheckBox2")
Dim chb3 As WinForm.CheckBox = e.Form.Controls("CheckBox3")
Static b As Boolean = True
If b Then
    chb1.Checked = True
    chb2.Checked = True
    chb3.Checked = True
    b = False
Else
    chb1.Checked = False
    chb2.Checked = False
    chb3.Checked = False
    b = True
End If
--  作者：hbhb
--  发布时间：2017/3/7 14:33:00
--  
谢谢！对不起搞错了，是复选组合框如何搞？
--  作者：有点色
--  发布时间：2017/3/7 15:45:00
--  
以下是引用hbhb在2017/3/7 14:33:00的发言：
谢谢！对不起搞错了，是复选组合框如何搞？

 

复选组合框，没办法做到的。如果要做，可以用 CheckedListBox

 

 

http://www.foxtable.com/webhelp/scr/2410.htm

 

 
--  作者：有点色
--  发布时间：2017/3/7 16:06:00
--  

mark 全选

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:全选例子.table
--  作者：hbhb
--  发布时间：2017/3/7 16:54:00
--  
谢谢！下面的部分能否作为下拉窗口？
--  作者：有点蓝
--  发布时间：2017/3/7 20:08:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:全选例子.table
--  作者：hbhb
--  发布时间：2017/3/7 20:45:00
--  
谢谢！就是这样好。
--  作者：hbhb
--  发布时间：2017/3/7 20:54:00
--  
大师：好！
再请问：
如果希望下拉窗口的宽度正好等于dropbox控件的宽度。需要在哪里再加上什么代码？
--  作者：有点蓝
--  发布时间：2017/3/7 21:43:00
--  
DropDownOpening事件加上

e.Form.baseform.width = e.Form.DropDownBox.Width