VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中防止将重复项目添加到列表框控件中
发表评论(0)作者:谭翁, 平台:VB6.0+Win98, 阅读:10760, 日期:2002-05-06
VisualBasic的列表框控件中包含项目的列表,本文介绍如何检查列表中项目是否已 经存在,以及如何将新的项目添加到列表框控件中。
使用SendMessage函数搜寻重复的项目
  在VisualBasic中开发应用程序时,可以使用列表框控件来创建一个项目的列表。要将 新的项目添加到列表中,可以使用AddItem方法,该方法不能自动地报告在列表框控件中是否 有重复的信息存在,所以必须在将新项目添加到列表之前首先检查一下。

  可以通 过使用Windows应用程序编程接口(API)的SendMessage函数来在列表框控件中搜寻指定的项 目,它函数允许向操作系统中发送消息。在本文的例子里,我们让SendMessage函数往列表框 控件中执行一个LB_FINDSTRING消息。

  LB_FINDSTRING消息允许在一个列表框控 件中搜索同目标字符串相匹配的项目。该消息的第一个参数是希望进行的搜索类型,须将该 值设为0,表示从列表框控件中的第一个项目开始搜索。第二个参数是一个NULL结束的字符串, 它是实际希望搜索的项目。

  如果该LB_FINDSTRING消息返回值-1,则表明在列表 框控件中没有找到目标字符串,此时可以使用AddItem方法来将新的项目添加到列表框控件 中。如果该项目已经在列表中存在,则可以简单地显示一个信息框或是执行一些其它的过程, 来通知用户一个重复的项目已经在列表框控件中存在。

样例程序
  该程序显示了如何确定在一个列表框控件中是否已经包含了一个要添加到控件中的项 目。

  1.在VisualBasic中开始一个新的工程,采用缺省的方法建立Form1。
  2.将如下常量和声明语句添加到Form1的通用声明部分中(注意该声明语句需要被书 写在一行内):
  PrivateDeclareFunctionSendMessageFindLib"user32"Alias"SendMessageA" (ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParam AsString)AsLong
  ConstWM_USER=&H400
  ConstLB_ERR=(-1)
  ConstLB_FINDSTRING=&H18F

  3.将如下代码添加到Form1的Form_Load 事件中:

PrivateSubForm_Load()
List1.AddItem"Item#1"
List1.AddItem"Item#2"
List1.AddItem"Item#3"
List1.AddItem"Item#4"
EndSub

  4.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。
  5.在Form1上添加一个列表框控件,采用缺? 方法建立List1。
  6.在Form1上添加一个命令按钮控件,采用缺省的方法建立Command1,将起Caption属 性设置为“重复”。
  7.将如下代码添加到Command1的单击事件中:

PrivateSubCommand1_Click()
CheckForDupes
EndSub

  8.创建一个新的名为CheckForDupes的函数,将如下代码添加到该函 数中:

SubCheckForDupes()
DimRetAsLong
DimAAsString
A=Text1.TEXT
Ret=SendMessageFind(List1.hwnd,LB_FINDSTRING,0,(A))
IfRet=LB_ERRThen
List1.AddItemText1.TEXT
Else
List1.ListIndex=Ret
MsgBox"重复项目-不能被添加到列表框中",16,"错误"
EndIf
EndSub

  按下F5键来执行本程序。在列表框控件中有5个项目。在文本框控件中 键入一个新的项目,单击重复命令按钮。程序将在列表框控件中搜索刚刚键入到文本框控件 中的项目。如果该项目未被找到,则程序将把该项目添加到列表框控件中。相反,如果该项目 已经在列表框中存在了,则将显示出一个信息框以通知项目已经存在。