Question

VB listbox多选问题

要求点击按钮后左边选定的内容添加到右边listbox上

Answer 1

Private Sub Command1_Click()
For k = 1 To List1.ListCount - 1
If List1.Selected(k) = True Then
List2.AddItem List1.List(k)
End If
Next k
End Sub

Answer 2

Private Sub Command1_Click()
Dim I As Integer
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If
Next
End Sub