Question

vb中combobox控件动态加载了全字母的姓名且排了序，输入一个字母如a时怎样让它自动显示含a第一项？帮忙代

希望能给出代码，在下感谢万分，忠实者加分
combox设为可写时，当我们输入一个字母时显示该列表项的头顶项内容，然后智能选择显示在可写的combox中，用到什么事件来触发，能否给我一个具体的例子呢？？？高手讲进。
我愿意把所有的分数献给你，谢谢！在线等待

Answer 1

例子中使用了一个combo1..然后在FORM LOAD中,随机装载了26个字母开头的列表,每个字母开头的列表项有3个.

当在combo1输入1个字母时,自动变成列表项中第1个此字母开头的内容,且后面的内容是选中的,可便于修改..

全部代码:

Private Sub Combo1_Change()
If Len(Combo1.Text) = 1 Then
Dim i%
For i = 0 To Combo1.ListCount - 1
If Left(Combo1.Text, 1) = Left(Combo1.List(i), 1) Then
Combo1.Text = Combo1.List(i)
Combo1.SelStart = 1
Combo1.SelLength = Len(Combo1.Text) - 1
Exit For
End If
Next
End If
End Sub

Private Sub Form_Load()
Dim i%
For i = 97 To 122 '每字母开头的,写入3个
Combo1.AddItem (Chr(i) & Int(Rnd * 100 + 1))
Combo1.AddItem (Chr(i) & Int(Rnd * 100 + 1))
Combo1.AddItem (Chr(i) & Int(Rnd * 100 + 1))
Next
End Sub

Answer 2

我的代码里已经体现了，触发事件就是keypress

Private Sub Combo1_KeyPress(KeyAscii As Integer)
For i = 1 To Len(Combo1.Text)
For j = 1 To Combo1.ListCount
If InStr(1, Right(Combo1.Text, i), Combo1.ListIndex(j)) <> 0 Then
Combo1.Text = Combo1.ListIndex(j)
end if
Next j
Next i
End Sub