Question

VB 选中指定的combo1中的内容

一个combo1一个text1 一个 command1
combo1中有 鼠 牛 虎 兔等等多行！！
当我在text1里面输入“牛” 然后点击command1即在列表中自动选中 “牛”

Answer 1

Dim i As Integer
For i = 0 To Combo1.ListCount
If Text1.Text = Combo1.List(i) Then
Combo1.ListIndex = i
End If
Next

Answer 2

combo1.style=1
Private Sub combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> 13 Then
combo1.Locked = True
End If
End Sub

Private Sub combo1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode <> 13 Then
combo1.Locked = False
End If
End Sub

Answer 3

只要做一个text的change事件就行了：
Private Sub Text1_Change()
For i = 0 To Combo1.ListCount Step 1
If Text1.Text = Combo1.List(i) Then
Combo1.Text = Text1.Text
End If
Next
End Sub

Answer 4

dfsaf fdsaf ewerrl;kl ;l ;uoiu