如何让combobox的值等于textbox的值

Question

在vb中textbox和combobox相关联，当textbox的值在combobox中存在时则combobox定位于此值，否则显示为空。combobox已预置有数据，且只允许选择而不允许进行任何编辑。请教各位大虾如何实现？

Answer 1

sub text1_change()
on error resume next
combobox1.text = text1.text
end sub

Answer 2

设计时将combo1.style = 2
Private Sub Form_Load()
    With Combo1
        .AddItem ""
        For i = 0 To 9
            .AddItem String(6, Asc("a") + i)
        Next
    End With
End SubPrivate Sub Text1_Change()
    Combo1.ListIndex = 0
    For i = 0 To Combo1.ListCount - 1
        If Text1.Text = Combo1.List(i) Then
            Combo1.Text = Combo1.List(i)
            Exit For
        End If
    Next
End Sub