＋设为首页 ＋添加到收藏夹
现有txt(1)到txt(20)共20个文本框，请问如何实现在这20个文本框中的某一个中输入一内容后，再在其它文本框中输入相同的内容时出现提示框并将其清空？
在txt的change事件里处理.
判断吧~~
当焦点离开text控件时，采用循环比较，如果发现输入的内容已经存在则提示用户并清空当前控件
change事件用select case
假设有4个文本框
Private Sub Text1_Change(Index As Integer)
For i = 0 To 3
If i <> Index Then
If Text1(i).Text = Text1(Index).Text Then
Text1(Index) = ""
End If
End If
Next i
End Sub
要判断它和其它任何一个文本框的值是否相等
for i =1 to 20 此处20是文本框数量的最大值
if i <> index and txt(index).text<> "" and txt(index).text =txt(i).text then
txt(index).text =""
exit for
end if
next i
