请大家帮帮忙，我遇到问题（在线等）

Question

combobox控件怎样实现将你输入的内容，自动加到下拉列表中，请指教！！谢谢

Answer 1

Private Sub Combo1_LostFocus()
    Dim i As Integer
    Dim blnFlag As Boolean
    
    blnFlag = False
    For i = 0 To Combo1.ListCount
        If Combo1.Text = Combo1.List(i) Then
            blnFlag = True
            Exit For
        End If
    Next i
    
    If Not blnFlag Then
        Combo1.AddItem Combo1.Text
    End If
End Sub