防止将重复项目添加到列表框控件中 |
|
isual 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;相反,如果该项目在列表框中已 经存在,则显示出一个信息框以通知项目已经存在 |
