VB 限制TEXT输入数字,且只能输入小数点后两位数.比如text1输入中文/英文时,不响应.输入数字响应.输入带小数点的数字时,只允许输入小数点后两位.求代码,

VB 限制TEXT输入数字,且只能输入小数点后两位数.比如text1输入中文/英文时,不响应.输入数字响应.输入带小数点的数字时,只允许输入小数点后两位.求代码,
VB 限制TEXT输入数字,且只能输入小数点后两位数.
比如text1输入中文/英文时,不响应.输入数字响应.输入带小数点的数字时,只允许输入小数点后两位.求代码,

VB 限制TEXT输入数字,且只能输入小数点后两位数.比如text1输入中文/英文时,不响应.输入数字响应.输入带小数点的数字时,只允许输入小数点后两位.求代码,
Private Sub Text1_keypress(keyascii As Integer)
'控制输入的字符为0-9,小数点,退格
If (Chr(keyascii) > "9 " Or Chr(keyascii) < "0 ") And Chr(keyascii) "." And keyascii 48 And keyascii 8 Then
keyascii = 0
Beep
Beep
End If
'控制输入的字符串长度大于等于3的时候,倒数第3个如果为小数点,那么后边只识别退格,其它键都放弃
If Len(Text1.Text) >= 3 And Left(Right(Text1.Text,3),1) = "." And keyascii 8 Then
keyascii = 0
End If
'控制输入的字符串长度大于1的时候,如果已输入小数点,那么后边的小数点就放弃,
If Len(Text1.Text) >= 1 And InStr(Text1.Text,".") 0 And Chr(keyascii) = "." Then
keyascii = 0
End If
End Sub
我刚刚试了一下.可以.