【求助】关于组合框和列表框的问题
有一个组合框和一个列表框组合框有四个选项,想选中一个就在列表框中添加,如果该项已经存在就不添加。
请教各位该怎么写?
Private Sub Combo1_Click()
For i = 0 To List1.ListCount '列表项目个数
If List1.List(i) = Combo1.text Then'判断列表中是否跟组合框中有相同
MsgBox "该项目已经存在!"
Exit Sub
End If
Next i
List1.AddItem Combo1.Text'如果没有相同的就把组合框中的内容添加到列表中
End Sub
Private Sub Form_Load()
Combo1.AddItem "数学"'初始化组合框中四个选项!
Combo1.AddItem "语文"
Combo1.AddItem "英语"
Combo1.AddItem "物理"
End Sub