问答题
[Vsual Basic 程序代码]
Private Sub CmdSelect_Cliek()
For i = O To List2.ListCount - 1
If Listl.Text = List2.List(i) Then Exit Sub '不要重复选择
Next i
List2.Addltem{{U}} (1) {{/U}} '在List2中增添List1中所选的项
End Sub
Private Sub CrndSelAll_Click()
List2.Clear '先删除List2中的已有项
For i = 0 To {{U}}(2) {{/U}} '对List1中所有各项做循环处理
List2.Addltem {{U}}(3) {{/U}} '将该项增添到 List2中
Next i
End Sub
Private Sub CmdDelete_Cliek()
If List2.Listlndex ＞= O Then '如果List2中有选中的项,
List2.Removeltem {{U}} (4) {{/U}} '则删除所选的项
End If
End Sub
Private Sub CmdDelAll_Cliek()
{{U}}(5) {{/U}}
End Sub