vb学习中的小问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 18:23:34
两个内容不同的listbox1和listbox2,要求双击listbox1中任意选项，双击的那一项内容从listbox1中删除，此项在listbox2中添加。（就是给它转到另一个listbox里了。）
怎么编啊？是用additem和removeitem写么？菜鸟问题，代码注释详细点先谢谢了。
对了，这个问题换成一次转移选中的多个选项，怎么实现？

List1的Style属性设为1

Private Sub Command1_Click()
On Error GoTo exitS '出错则转到exitS行
exitS: '出错转到这一行
For i = 0 To List1.ListCount - 1 '循环，检查List1中哪一项被选中，把选中的添加到List2中并在List1中删除
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
List1.RemoveItem (i)
i = 0 'List1每删除一项，List1.ListCount就会减1，所以要重新循环，但是当i大于List1.ListCount-1时会出错，所以转到exitS行重新给i赋值循环，直到List1中没有选中的项了
End If
Next
End Sub

Private Sub List1_dblClick()
List2.AddItem List1.Text '把List1中选中的项添加到List2中
List1.RemoveItem List1.ListIndex '删除List1中选中的项
End Sub

private sub list1_dbclick()
list2.additem list1.text
list1.removeitem list1.listindex
end sub

我做过,你看着
Private Sub Form_Load()
List1.FontSize = 14
List2.FontSize = 14
List1.AddItem "ibm"
List1.AddItem "compaq"
List1.AddItem "hp"
List1.AddItem "fuji"
Lis