- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] ListBox怎么上移或下移里面的项目内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179224)
-- 发布时间：2022/8/13 11:36:00
-- [求助] ListBox怎么上移或下移里面的项目内容
同上,
此主题相关图片如下：2022-08-13_113423.png
-- 发布时间：2022/8/13 14:08:00
--
交换2个位置的内容即可
Dim lb As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim s As String = lb.SelectedValue
Dim idx As Integer = lb.SelectedIndex
lb.Items(idx) = lb.Items(idx - 1)
lb.Items(idx-1) = s