如何比较两个列表框中的是否有有相同项

来源：百度知道 编辑：UC知道 时间：2024/06/11 00:19:37
两个列表框，一个是待选的，另一个是选好的，但不能选相同。比如已经选了VB这课程,再选这门课时，就会提示已选此课程， 所以在选一门课时就要先判断第二列表框中是否已有此课

Private Sub Command1_Click()
For i = 0 To List2.ListCount - 1
If List1.List(List1.ListIndex) = List2.List(i) Then 判断 = True
Next i
If 判断 <> True Then
List2.AddItem List1.List(List1.ListIndex)
Else
MsgBox "已经添加"
End If
End Sub