以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  CheckedListBox中记录如何移动位置？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92230)

--  作者：xujie80 --  发布时间：2016/10/29 12:13:00 --  CheckedListBox中记录如何移动位置？ 用CheckedListBox管理表的字段，使用户可以自己确定字段的顺序和宽度。表的控制实现了，但CheckedListBox怎么办？ 用了listbox返回项目位置的属性，但是无效。 Dim chk As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1") Dim cyd As Integer = chk.SelectedIndex  cyd = cyd -1

--  作者：有点蓝 --  发布时间：2016/10/29 14:34:00 --   Dim chl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1") Dim item As String = chl.SelectedValue Dim idx As Integer = chl.SelectedIndex chl.Items.RemoveAt(chl.SelectedIndex) chl.Items.Insert(idx-1,item) \'向上移动 chl.Items.Insert(idx+1,item) \'向下移动