Question

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

希望能给出代码，在下感谢万分，忠实者加分

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

vb中combobox控件动态加载了全字母的姓名且排了序，…3968