jackgan 发表于 2004-9-24 11:31:00

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

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


我无法上传图片??怪了

efan2000 发表于 2004-9-24 13:24:00

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


如：


v = ListBox1.List(0)


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


ListBox1.List(1) = v

jackgan 发表于 2004-9-24 14:16:00

原来是只对相邻两行更换


原以为要把全部内容读入数组再写出来


THANK       <A name=54458><FONT color=#000066><B>efan2000</B></FONT></A>


也许程序这样更好点


Private Sub CommandButton9_Click() '向上<BR>w = ListBox2: v = ListBox2.ListIndex<BR>If v = 0 Then Exit Sub<BR>ListBox2.List(v) = ListBox2.List(v - 1)<BR>ListBox2.List(v - 1) = w<BR>ListBox2.ListIndex = (v - 1)


End Sub
页: [1]
查看完整版本: 求助:怎样调整LISTBOX中所选项的位置??