在VB编程中实现增量查询

Author: 季昭君 Date: 2000年第1期

　　什么是增量查询呢?例如，平时如你要查询一个数据，你需要输入完整的数据字符然后按回车程序才开始查询，而增量查询只要你输入此数据的第一个字符或字母，程序就将自动查询到它并使之高亮度显示，等待你的选择，这是不是更方便更实用呢!现在许多程序都具有增量查询功能，如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中输入数据第一个字符，就能实现增量查询了!