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;相反,如果该项目在列表框中已 经存在,则显示出一个信息框以通知项目已经存在
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
