List列表拒绝添加重复信息

【实例说明】
利用程序输入信息时，经常由于马虎输入了重复的信息。为避免输入重复信息，可以在添加重复信息时进行警告。

【编程思路】
                 通过判断文本框内输入的内容是否在列表中存在，来确定信息是否重复。相关的属性和方法：
                 AddItem方法，将项目添加到ListBox列表里。
                 语法：object.AddItem item,index
                 参数：Item必需的。字符串表达式，用来指定添加到列表中的项目。Index可选。是整数，用来指定新项目或行在列表中的位置。
                 ListCount属性，列表中项目的个数。
                 ListIndex属性，设置列表中当前被选择的项目的索引。
                 Text属性，列表中的文本。

【设计步骤】
1.新建一个标准工程，创建一个新窗体，默认名为Form1。
2.在Form1窗体中放置一个Text控件、一个ListBox控件、两个Command控件。

3.源程序

Private Sub Form_Load()
Me.List1.AddItem "456"

Me.List1.AddItem "123"

End Sub

Private Sub Command1_Click()
                     Dim i As Integer
                     For i = 0 To List1.ListCount - 1
                             List1.ListIndex = i
                             If List1.Text = Text1.Text Then '如果信息重复
                                    ' MsgBox "系统不允许重复输入，请重新输入"
                                     Exit Sub
                             End If
                     Next i

List1.AddItem Text1.Text '添加信息
End Sub

Private Sub Command2_Click()
End
End Sub

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※VB利用资源文件进行工作

※[转]vb高效编程（优化）

※VB阳历转阴历

※纯VB代码取得硬盘的物理序列号

※VB获得磁盘的文件系统

※做VB的，经常注册和反注册OCX控件和DLL链

※VB从程序中生成Exe文件

※VB6监视/操作剪贴板示例(VB6.0代码)

※VB6里自动提交/自动填表的一种相对通用的方案

※VB移动没有标题的窗体

※VB随机字母的函数

※VB删除带子文件夹和文件的文件夹

※VB怎样屏蔽 Alt+F4键

※VB 隐藏进程

※vb屏蔽文本框点右键时的弹出菜单

※VB手控Combobox的打开或收起

※在VB中INI文件的读写、删除（对中文支持很好）

※vb全局热键的写法（占很少的资源）

※vb取消文本框的粘贴功能

※VB常用文件操作类

※VB获取特殊文件夹

※VB获取windows各常用目录的函数（模块）

※VB生成太极图

※VB:常用内部函数大全,你会了几个呢?

※vb中SendMessage函数

※精简VB程序的代码

※VB:将数字转换为大写中文

※VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

※VB:读取及设定NumLock/CapsLock/ScrollLock的值

※VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※VB:将短文件名格式转成长文件名

※在vb中使用Iphlpapi.dll获取网络信息(上）

※在vb中使用Iphlpapi.dll获取网络信息(下）

List列表拒绝添加重复信息相关推荐

C# 动态添加SEO 信息，不和静态页面重复和叠加
动态添加SEO 信息,不和静态页面重复和叠加,就一个方法,用到了做个记录,以后直接用就OK了,需要的同学也可以直接拿去用. 1 /// <summary> 2 /// 动态设置 SEO 信 ...
第15课：ul，添加新闻信息列表ol，添加图书销售排行榜
使用ul,添加新闻信息列表些列表就可以使用ul-li标签来完成.ul-li是没有前后顺序的信息列表. 语法: <ul><li>信息</li><li>信 ...
如何在保留订单的同时从列表中删除重复项？
是否有内置的程序在保留顺序的同时从Python列表中删除重复项? 我知道我可以使用集合来删除重复项,但这会破坏原始顺序. 我也知道我可以这样滚动自己: def uniq(input):output = ...
Bootstrap4+MySQL前后端综合实训-Day08-PM【ajax获取表单标签内容、根据“栏目信息”添加“新闻信息”、新闻管理系统-项目展示】
[Bootstrap4前端框架+MySQL数据库]前后端综合实训[10天课程博客汇总表详细笔记][附:实训所有代码] 目录 ajax获取表单标签内容 ajax根据数据库加载select下来列 ...
在 Excel 中如何使用宏示例删除列表中的重复项
概要:在 Microsoft Excel 中,可以创建宏来删除列表中的重复项.也可以创建宏来比较两个列表,并删除第二个列表中那些也出现在第一个(主)列表中的项目.如果您想将两个列表合并在一起,或者如果 ...
python列表删除算法_关于算法：如何从python中的列表中删除重复的条目
最近在一次采访中,我被要求编写一个python代码来从列表中删除所有重复的条目. 例如: Input List = {1,2,4,5,2,3,1} Expected Output List = {4, ...
在web.config中添加配置信息
1 在web.config中添加配置信息<configuration><connectionStrings><add name="conStr" co ...
利用MT Photos生成的重复文件列表，删除重复文件
提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档文章目录前言一.获取重复文件信息二.使用步骤 1. 运行"MTphotos重复文件(生成excel).py" ...
C＃LINQ在列表中查找重复项
本文翻译自:C# LINQ find duplicates in List 使用LINQ,如何从List<int>检索包含重复项不止一次及其值的列表? #1楼参考:https://sta ...

List列表拒绝添加重复信息

List列表拒绝添加重复信息相关推荐

最新文章

热门文章