请说明,在允许同时选择多个项目,是什么项目,是文件,还是VB中的多选按钮,还是……
请看一看这篇文章。
http://www0.ccidnet.com/school/software//2003/04/30/134_8671.html
http://www0.ccidnet.com/school/software//2003/05/07/134_8694.html
Private Sub Command1_Click()
List2.Clear
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List2.AddItem List1.List(i)
Next i
End Sub
Private Sub Form_Load()
For i = 1 To 20
List1.AddItem i
Next
End Sub
测试通过
selecteditems