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

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:69 来源：互联网

本文章共1838字，分2页，当前第1页，快速翻页：

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

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

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

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

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

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

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

---- 1. 在Visual Basic 中开始一个新的工程，采用缺省的方法建立Form1。
---- 2. 将如下常量和声明语句添加到Form1 的通用声明部分中（注意该声明语句需要被书写在一行内）：
---- Private Declare Function SendMessageFind Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam 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 上添加一个列表框控件，采用缺省的方法建立List1。
---- 6. 在Form1 上添加一个命令按钮控件，采用缺省的方法建立Command1，将起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

本文章更多内容：1 - 2 - 下一页>>

本页地址