主题：CheckedComboBox

请教各位高手，如何在CheckedComboBox的下拉窗口上增加“全选”和“反选”按钮

无法加。用下拉窗口做吧：http://www.foxtable.com/webhelp/topics/2099.htm

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

哎，确认和取消也不会啊

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

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

 

哪位高手帮忙看看，改进下

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