关于listbox(我是菜鸟)

Question

有两个listbox,分别为list1 list2
如何将list1中的各项移到list2中,并且list1被选中的消失,以下是我写的,还应该加什么?
Dim mn
mn = List1.List(List1.ListIndex)
List2.AddItem mn
还有一个问题,如何表示listbox中各项内容,不是单独某一项,而是全部,以下是我写的,什么问题?
Dim mn
For i = 0 To List1.ListCount - 1
mm = List1.List(i)
Next i

Answer 1

Dim mn
mn = List1.List(List1.ListIndex)
List2.AddItem mn
---------------
这个只是增加当前被选择的项。要添加所有：
For i = 0 To List1.ListCount - 1    List2.AddItem List1.List(i)
Next还有一个问题,如何表示listbox中各项内容,不是单独某一项,而是全部,以下是我写的,什么问题?
－－－－－
你写的没有问题。

Answer 2

If List1.ListIndex >= 0 Then
        List2.AddItem List1.List(List1.ListIndex)
        List1.RemoveItem List1.ListIndex
  End If

Answer 3

Dim i As Integer
Dim mn
For i = 0 To List1.ListCount - 1
mn = List1.List(i)
Debug.Print mn
Next i
这个没问题啊

Answer 4

走了,上班啦,这些基础的问题你到VB自带的MSDN帮助上面去找,全部有的