在VB编程中实现增量查询

领测软件测试网

　　 
　　在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中输入数据第一个字符，就能实现增量查询了!}

文章来源于领测软件测试网 https://www.ltesting.net/