vb实现防止将重复项目添加到列表框控件中

　　Visual Basic的列表框控件中包含项目的列表,本文介绍如何检 查列表中项目是否已经存在,以及如何将新的项目添加到列表框控件 中。

　　使用SendMessage函数搜寻重复的项目

　　在Visual Basic中开发应用程序时,可以使用列表框控件来创建 一个项目的列表。要将新的项目添加到列表中,可以使用AddItem方法 。该方法不能自动报告在列表框控件中是否有重复的信息存在,所以 必须在将新项目添加到列表之前检查一下。

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

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

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

　　样例程序

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

　　1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。

　　2.将如下常量和声明语句添加到Form1的通用声明部分中(注意: 该声明语句需要书写在一行内):

　　　　Private Declare Function SendMessageFind Lib "user32" Al ias "SendMessage A" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVallP aram As String) As Long
　　 Const WM_USER = &H400
　　 Const LB_ERR = (-1)
　　 Const LB_FINDSTRING = &H18F

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

　　　　Private Sub Form_Load()
　　 List1.AddItem "Item #1"
　　 List1.AddItem "Item #2"
　　 List1.AddItem "Item #3"
　　 List1.AddItem "Item #4"
　　 End Sub

　　4.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。

　　5.在Form1上添加一个列表框控件,采用缺省的方法建立List

　　6.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comman d1,将Caption属性设置为"重复"。

　　7.将如下代码添加到Command1的单击事件中:

　　　　Private Sub Command1_Click()
　　 CheckForDupes
　　 End Sub

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

　　　　Sub CheckForDupes()
　　 Dim Ret As Long
　　 Dim A As String
　　 A = Text1.TEXT
　　 Ret = SendMessageFind(List1.hwnd, LB_FINDSTRING, 0, (A))
　　 If Ret = LB_ERR Then
　　 List1.AddItem Text1.TEXT
　　 Else
　　 List1.ListIndex = Ret
　　 MsgBox "重复项目-不能被添加到列表框中", 16, "错误"
　　 End If
　　 End Sub

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