求助:怎样调整LISTBOX中所选项的位置??

jackgan

就象这样,调整所选项的上下位置


我无法上传图片??怪了

efan2000

是列表框中的某个项目进行上移或者下移的操作吧，使用List属性设置。


如：


v = ListBox1.List(0)


ListBox1.List(0) = ListBox1.List(1)


ListBox1.List(1) = v

jackgan

原来是只对相邻两行更换 原以为要把全部内容读入数组再写出来 THANK efan2000 也许程序这样更好点 Private Sub CommandButton9_Click() '向上
w = ListBox2: v = ListBox2.ListIndex
If v = 0 Then Exit Sub
ListBox2.List(v) = ListBox2.List(v - 1)
ListBox2.List(v - 1) = w
ListBox2.ListIndex = (v - 1) End Sub