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

※