求助各路高手指教-textbox控件组
现有一textbox控件组,共八个,每一个都是只能输入八个字符,如何做到:当往任意两个textbox输入相同的字符串之后,弹出提示对话框,同时将后输入的textbox中的内容清空。
请高手指点迷津。感激涕零啊! vb?textbox 控件组
[解决办法]
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
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