Question

vb textbox 禁止输入重复数字怎么写

我现在用这段代码写成只能输入数字，现在想加一个条件就是输入的不能有重复的数字如输入了则弹出“不能有重复的” ，然后删除这个最后输入的数，该怎么写，如我输入04这时我继续输入0或4，弹出“不能有重复的”，然后删除最后输入的0或4，这时text里还只是04
现在的代码就是差禁止Text4(1)输入重复的了
Private Sub Text4_Change(Index As Integer)
If Len(Text4(0).Text) <> 0 Then
Select Case Asc(Text4(0).Text)
Case Is < 0
Case Asc("a") To Asc("z"), Asc("A") To Asc("Z")
Case Else
MsgBox "请输入1个字母或汉字"
Text4(0).Text = ""
Text4(0).SetFocus
End Select
End If
If Not IsNumeric(Text4(1).Text) And Len(Text4(1).Text) <> 0 Then
Text4(1).Text = Mid(Text4(1).Text, 1, Len(Text4(1).Text) - 1)
MsgBox "必须输入数字！", vbOKOnly, "输入数据类型错误"
Text4(1).SelStart = Len(Text4(1).Text)
ElseIf Len(Text4(1).Text) = 0 Then
Text4(1).Text = ""
Text4(1).SelStart = Len(Text4(1).Text)
End If
???????????

End Sub
怎么改
我这是控件组，每一个text,都有不同的功能，所以不能统一写
这个代码单独测试到很好
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "必须输入数字！", vbOKOnly, "输入数据类型错误"
KeyAscii = 0
ElseIf InStr(Text1.Text, Chr(KeyAscii)) > 0 Then
MsgBox "不能有重复的", vbOKOnly, "输入数据类型错误"
KeyAscii = 0
End If
End Sub
不过要怎么用到我的代码里，禁止输入重复的只是针对Text4(1)的
该怎么写
Private Sub Text4_KeyPress(KeyAscii As Integer，index As Integer)
if Index=1 then
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
If instr(1,Text4(1).Text,chr(KeyAscii))>0 Then
MsgBox "不能有重复的！", vbOKOnly, "输入数据重复"
KeyAscii = 0
End If
end if
End Sub
不好使啊

Answer 1

昨天你问过的？还没有结贴呢！

实时监控文本框输入，应该采用文本框的KeyPress事件
Private Sub Text4_KeyPress(KeyAscii As Integer，index As Integer)
if Index=1 then
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
If instr(1,Text4(1).Text,chr(KeyAscii))>0 Then
MsgBox "不能有重复的！", vbOKOnly, "输入数据重复"
KeyAscii = 0
End If
end
End Sub

Answer 2

昨天你问过的？还没有结贴呢！

实时监控文本框输入，应该采用文本框的KeyPress事件
Private Sub Text4_KeyPress(KeyAscii As Integer，index As Integer)
if Index=1 then
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
If instr(1,Text4(1).Text,chr(KeyAscii))>0 Then
MsgBox "不能有重复的！", vbOKOnly, "输入数据重复"
KeyAscii = 0
End If
end
End Sub