Question

VB listbox 添加选项问题

我要的效果是: 在listbox1里的多个选项(不是单选) 按一个按钮,所选的选项添加到listbox2里面,并且listbox1所选的删除.知道的说一下,详细的代码.
我自己想的:
Dim x
x = ls1.Items.Count - ls1.SelectedItems.Count
For x = 0 To x
ls2.Items.Add(ls1.SelectedItem)
Next
End Sub
哪里有什么要改的
都不行啊 我要VB2003版本的代码 不怎么会改
Dim x
For x = (ls1.Items.Count - 1) To 0 Step -1
If ls1.SelectedItem <> "" Then
ls2.Items.Add(ls1.Items(x))
End If
改成2003的.但是出来的效果是list1的所有项 移除 到list2 里面,并不是所选中的项 哪里有需要改的?

Answer 1

x = List1.ListCount
For i = 0 To x
List2.AddItem List1.List(i)
Next

Answer 2

思路是一样的 难道你不会改？
Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then List1.RemoveItem i
Next
End Sub

Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub