关于搜索combobox里的数据

Question

搜索combobox里的数据应该怎么弄~
94我有一个combobox里很多数据，然后在一个text1里输入关键字点command1就可以快速选到combobox里的数据，有人会吗？

Answer 1

command1_click
Combo1.ListIndex=text1.text

Answer 2

text1.text
???
万一text1.text里的与Combo1.ListIndex里的不是完全一样，或者text1里的比combo里的差一个字符但其它的都符合，那这样就不行了啊！我想用相似于数据库操作里的like一样。。
还有，万一text1.text里的与Combo1里的几项相符，那再加个向下找command2和一个向上找command3了啊，看来情况越来越复杂```

Answer 3

http://www.hongen.com/pc/program/codedown/vbcode/text_string/autofill.zip
呵```我找到了，这个，不错不错！大家学习学习哈``分我自己给自己啦~

Answer 4

API 函数：Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As LongPrivate Const LB_FINDSTRINGEXACT = &H1A2    '在 ListBox 中精确查找
Private Const CB_FINDSTRINGEXACT = &H158    '在 ComboBox 中精确查找
Private Const LB_FINDSTRING = &H18F         '在 ListBox 中模糊查找
Private Const CB_FINDSTRING = &H14C         '在 ComboBox 中模糊查找调用方法：
n = SendMessagebyString(List1.hWnd, LB_FINDSTRING, -1, SearchText)
If n = -1 Then
    Msgbox "Not Found!"
Else
    MsgBox List1.List(n)
End If

Answer 5

Option ExplicitPrivate Sub Command1_Click()
    Me.Combo1.Text = Text1.Text
End SubPrivate Sub Form_Load()
    Me.Combo1.AddItem "1", 0
    Me.Combo1.AddItem "2", 1
    Me.Combo1.AddItem "3", 2
End Sub

Answer 6

of123() 说的，
假如Combo里有几个相同的值应该怎么移到下一个？