我需要使Combol可以让用户输入东西,请指教

Question

Combo1的Style改成DropDown Combo就可以了，如果想让用户输入的数据记录在Combo1中，可以在Combo1_KeyDown事件中添加代码
if keycode=13 then
   combo1.additem combo1.text
end if

Answer 1

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