VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在VB编程中实现增量查询
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10299, 日期:2001-02-08
在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中输入数据第一个字符,就能实现增量查询了!}