ComboBox 列取比较的问题

Question

cboList有如下内容
AAAA
BBBB
CCCC
DDDD
EEEE
列取的时候比较该ComboBox里面有否有相关内容,比如是BBBB的话,就选择BBBB,如果是FFFF的话,则添加并选择.

Answer 1

Option ExplicitPrivate Sub Combo1_KeyPress(KeyAscii As Integer)
        Dim i As Integer
        If KeyAscii <> 13 Then Exit Sub '按回车键
        For i = 0 To Combo1.ListCount - 1
            If Trim(Combo1.Text) <> Combo1.List(i) Then Combo1.AddItem Combo1.Text
            Combo1.ListIndex = Combo1.NewIndex: Exit Sub
        Next
End SubPrivate Sub Form_Load()
        Combo1.AddItem "AAAA"
        Combo1.AddItem "BBBB"
        Combo1.AddItem "CCCC"
        Combo1.AddItem "DDDD"
        Combo1.AddItem "EEEE"
        Combo1.ListIndex = 0
End Sub

Answer 2

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    Dim i As Integer, blnYES As Boolean
    If KeyAscii <> 13 Then Exit Sub '按回车键
    For i = 0 To Combo1.ListCount - 1
        If Trim(Combo1.Text) = Combo1.List(i) Then blnYES = True
        Exit For
    Next
    If blnYES = False Then
        Combo1.AddItem Combo1.Text
        Combo1.ListIndex = Combo1.NewIndex: Exit Sub
    End If
    
    blnYES = False
End Sub