Dim ckl As WinForm.CheckedListBoxckl = Forms("窗口1").Controls("CheckedListBox1")
For i As Integer = 0 To ckl.Items.count - 1 '获取已经勾选的列 ckl.SetItemChecked(i, not ckl.GetItemChecked(i))Next
加好友 
发短信
Post By：2019/8/3 7:54:00 [显示全部帖子]
