Private Sub Text1_Change(Index As Integer) Dim i As Integer If Len(Text1(Index)) = 8 And Index > 0 Then For i = 0 To Index - 1 If Text1(Index) = Text1(i) Then MsgBox "Repeated information" Text1(Index) = "" End If Next i End If End Sub
Private Sub Text1_Change(Index As Integer) If Len(Text1(Index).Text) <> 8 Then Exit Sub Dim vI As Integer For vI = 0 To 7 If Index <> vI And Text1(Index).Text = Text1(vI).Text Then MsgBox "重复" Text1(Index).Text = "" Exit For End If Next End Sub
原因是其他文本框为空,而 Text1(7) 清空后与它们相同。如果不是顺序输入的话:Private Sub Text1_Change(Index As Integer) Dim i As Integer If Len(Text1(Index)) = Text1(Index).MaxLength Then For i = 0 To Text1.Count - 1 If i <> Index And Text1(Index) = Text1(i) Then MsgBox "Repeated information" Text1(Index) = "" Exit Sub End If Next i End If End Sub
Private Sub Text1_Change(Index As Integer)
Dim i As Integer If Len(Text1(Index)) = 8 And Index > 0 Then
For i = 0 To Index - 1
If Text1(Index) = Text1(i) Then
MsgBox "Repeated information"
Text1(Index) = ""
End If
Next i
End If
End Sub
Private Sub Text1_Change(Index As Integer)
If Len(Text1(Index).Text) <> 8 Then Exit Sub
Dim vI As Integer
For vI = 0 To 7
If Index <> vI And Text1(Index).Text = Text1(vI).Text Then
MsgBox "重复"
Text1(Index).Text = ""
Exit For
End If
Next
End Sub
Dim i As Integer If Len(Text1(Index)) = Text1(Index).MaxLength Then
For i = 0 To Text1.Count - 1
If i <> Index And Text1(Index) = Text1(i) Then
MsgBox "Repeated information"
Text1(Index) = ""
Exit Sub
End If
Next i
End If
End Sub