请问高手:combobox怎样判断输入的内容与item的内容相同?

Question

有是下拉item太多，选择比较麻烦。想给用户输入，
但是怕输入的不标准。能不能判断输入的内容与下拉
item一样呢。
combobox 有没有象dbcombo的mathwithlist类似的
属性呢？

Answer 1

Option Explicit
Dim E As Boolean
Private Sub Combo1_Change()
Dim i As IntegerFor i = 0 To Combo1.ListCount - 1
   If Trim(Combo1.Text) = Combo1.List(i) Then
      E = True
   Else
      E = False
   End If
   If E Then Exit For
Next
End Sub
Private Sub Command1_Click()
If E Then
  MsgBox "相同"
Else
  MsgBox "不同"
End If
End Sub