|
|
域名空间 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>编程开发>>VB编程>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
防止将重复项目添加到列表框控件中http://www.iyit.net 日期：2006-4-29 22:29:48 来源： 点击： |
使用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 = %26H400 Const LB_ERR = (-1) Const LB_FINDSTRING = %26H18F 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;相反,如果该项目在列表框中已 经存在,则显示出一个信息框以通知项目已经存在 编辑： [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：从公共对话框控件中提取多个文件名称 下一篇：VB编程开发常见技巧 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 最新更新 | 热点排行 | 推荐新闻 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 友情链接 | ||||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术