|
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim i = clist.SelectedIndex
If i > -1 AndAlso i < clist.Items.count-1
Dim s1 = clist.Items(i)
Dim s2 = clist.Items(i+1)
Dim c1 = clist.GetItemChecked(i)
Dim c2 = clist.GetItemChecked(i+1)
clist.Items(i) = s2
clist.Items(i+1) = s1
clist.SetItemChecked(i, c2)
clist.SetItemChecked(i+1, c1)
clist.SelectedIndex = i+1
e.Form.controls("button1").performclick
End If
|
加好友 
发短信
Post By：2017/12/14 17:35:00 [只看该作者]
