利用程序输入信息时,经常由于马虎输入了重复的信息。为避免输入重复信息,可以在添加重复信息时进行警告。
通过判断文本框内输入的内容是否在列表中存在,来确定信息是否重复。相关的属性和方法:
AddItem方法,将项目添加到ListBox列表里。
语法:object.AddItem item,index
参数:Item必需的。字符串表达式,用来指定添加到列表中的项目。Index可选。是整数,用来指定新项目或行在列表中的位置。
ListCount属性,列表中项目的个数。
ListIndex属性,设置列表中当前被选择的项目的索引。
Text属性,列表中的文本。
1.新建一个标准工程,创建一个新窗体,默认名为Form1。
2.在Form1窗体中放置一个Text控件、一个ListBox控件、两个Command控件。
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禁止使用 Alt-Tab 或 Ctrl-Alt-Del
※