Question

vb购物车程序，有list1和list2，点击按钮1，将列表一的东西加入到列表2，一里的那个消失，

vb购物车程序，有list1和list2，点击按钮1，将列表一的东西加入到列表2，一里的那个消失，点击按钮2，表2进入表1，2里的消失。求代码！！谢谢！

Answer 1

代码如下：

Private Sub Form_Load()
On Error Resume Next
List1.Clear
For i = 1 To 10
List1.AddItem "商品" & i
Next i
List2.Clear
End Sub

Private Sub List1_Click()
On Error Resume Next
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem (List1.ListIndex)
End Sub

Private Sub List2_Click()
On Error Resume Next
List1.AddItem List2.List(List2.ListIndex)
List2.RemoveItem (List2.ListIndex)
End Sub

界面如下：

追问

谢谢！请问如果商品是一开始属性里弄的代码怎么改一下？

追答

开始的时候，在：
List1.AddItem 添加商品啊，有多少添加多少啊。一行一个。如：

List1.AddItem “苹果”
List1.AddItem “梨子”

追问

哦！谢谢！

追答

不客气~~

Answer 2

Private Sub Command1_Click()
   For i = 0 To List2.ListCount - 1
      List1.AddItem List2.List(i)
   Next i
   List2.Clear
End Sub
Private Sub Form_Load()
   For i = 1 To 9
      List1.AddItem i
   Next i
End Sub
Private Sub List1_Click()
   List2.AddItem List1.List(List1.ListIndex)
   List1.RemoveItem List1.ListIndex
End Sub