vb字符搜索，2008最后一个问题，满分送了

来源：百度知道 编辑：UC知道 时间：2024/06/07 06:11:56
我有一个列表框(ListBox)，已经录入了很多数据，都是英文的，我想在列表框(ListBox)上面放一个TextBox控件，当在TextBox中输入一个“C”的时候，对应的ListBox中关于C的数据列就靠前排列显示，请问有高手能帮我下吗
对了，就像VB自带的API浏览器那样，有简单的搜索排列功能

'把List1的Sorted属性设为True

Private Sub Text1_Change()
For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), Text1.Text) = 1 Then
List1.Selected(i) = True
Exit For
End If
Next
End Sub

放两个list控件 一个text控件 一个command控件
下面仅是样本，原理一样！
我的做法是用两个list控件来回倒，这样就可以实现楼主要的功能了！

Private Sub Command1_Click()

List2.Clear
For i = 0 To List1.ListCount - 1
If Left(List1.List(i), 1) = Text1.Text Then List2.AddItem List1.List(i)
Next i
For i = 0 To List1.ListCount - 1
If Left(List1.List(i), 1) <> Text1.Text Then List2.AddItem List1.List(i)
Next i

List1.Clear
For i = 0 To List2.ListCount - 1
List1.AddItem List2.List(i)
Next i

End Sub

Private Sub Form_Load()
List1.AddItem "aa1"
List1.AddItem "aa2"
List1.AddItem "ba1"
List1.AddItem "ca1"
List1.AddItem "ca2&quo