以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  CheckedComboBox  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138535)
--  作者：全球警告
--  发布时间：2019/8/2 21:42:00
--  CheckedComboBox
请教各位高手，如何在CheckedComboBox的下拉窗口上增加“全选”和“反选”按钮
[此贴子已经被作者于2019/8/2 21:43:20编辑过]
--  作者：有点蓝
--  发布时间：2019/8/2 21:50:00
--  
无法加。用下拉窗口做吧：http://www.foxtable.com/webhelp/topics/2099.htm
--  作者：全球警告
--  发布时间：2019/8/2 23:10:00
--  麻烦问问
CheckedListBox，的‘全选“和”反选“，代码怎么写啊
--  作者：全球警告
--  发布时间：2019/8/2 23:19:00
--  哎，确认和取消也不会啊
哎，确认和取消也不会啊
--  作者：全球警告
--  发布时间：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
--  作者：全球警告
--  发布时间：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

 

哪位高手帮忙看看，改进下
--  作者：y2287958
--  发布时间：2019/8/3 7:54:00
--  

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

For i As Integer = 0 To ckl.Items.count - 1  \'获取已经勾选的列
    ckl.SetItemChecked(i, not ckl.GetItemChecked(i))
Next