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

　　说明:此程序可查询英文，数字，中文。