标题在VB编程中实现增量查询

　　什么是增量查询呢？例如，平时如你要查询一个数据，你需要输入完整的数据字符然后按回车程序才开始查询，而增量查询只要你输入此数据的第一个字符或字母，程序就将自动查询到它并使之高亮度显示，等待你的选择，这是不是更方便更实用呢！现在许多程序都具有增量查询功能，如VB5中的帮助就是一例，那他是怎样实现的呢？下面就为大家介绍此技巧！
　　首先，在FORM1上新建一个LABEL1，在其下放上一个TEXT1，再在TEXT1下放上一个LIST1，其属性都保持不变，然后输入以下代码：
　　Private Sub Form_Load() '作初始化设置
　　Label1.AutoSize = True : Text1.Text = ""
　　Form1.Caption = "增量查询演示程序"
　　Label1.Caption = "请输入要查询文字的第一个字母："
　　List1.AddItem "AIECVCFDGSFD" '随便输入一些英文，数字，中文作为演示用
　　List1.AddItem "ASEDDFDSFA"
　　List1.AddItem "BDIEDIFDSF"
　　List1.AddItem "BJIDFEKCTETRDST"
　　List1.AddItem "12568346743356"
　　List1.AddItem "刘德华"
　　List1.AddItem "刘德凯"
　　List1.AddItem "刘雪华"
　　End Sub
　　--------
　　Private Sub Text1_Change()
　　Dim Getitem As String
　　Dim Dresult As Integer
　　Dim DENG As Integer
　　For DENG = 0 To List1.ListCount - 1 '对LIST1的每一项进行对比，如有相同的，就选中它
　　Getitem = Left(List1.List(DENG)，Len(Text1.Text))
　　Dresult = StrComp(Text1.Text，Getitem，1) '如返回的是零的数则选中它
　　If Dresult = 0 Then List1.ListIndex = DENG: Exit Sub
　　Next DENG
　　End Sub
　　----------------
　　Private Sub Form_Unload(Cancel As Integer)
　　Unload Me '程序结束
　　End
　　End Sub
　　说明：此程序可查询英文，数字，中文。
　　现在你运行一下，在TEXT1中输入数据第一个字符，就能实现增量查询了！