Question

VB里怎么把list中鼠标选中的数据通过按钮复制到另一个list中?

就是菜单系统，选中的向下复制到另个list中，不想要了在另一个list中按一个按钮可以删除，求代码！！！！

Answer 1

上面的是list1，往下的按钮是Command1，下面的是list2，往上的按钮是Command2。

Private Sub Command1_Click()
List2.AddItem List1.Text
End Sub

Private Sub Command2_Click()
If List2.ListIndex = -1 Then
MsgBox "选择不想点的菜"
Else
List2.RemoveItem List2.ListIndex
End If
End Sub

Answer 2

你该把列表框设为可多选较好，该属性：Multiselect。

Private Sub Command1_Click() '向下按钮
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
  If List1.Selected(i) Then
    List2.AddItem List1.List(i)
    List1.RemoveItem i
  End If
Next
End Sub
Private Sub Command2_Click() '向上按钮
Dim i As Integer
For i = List2.ListCount - 1 To 0 Step -1
  If List2.Selected(i) Then
    List1.AddItem list2.list(i)
    List2.RemoveItem i
  End If
Next
End Sub

Answer 3

我来试试。。。。。。。。。