编程论坛 » VB6论坛 » （已解决）感谢三断笛）如何限制文本中输入数字的位数

jxawgyl 发表于 2008-6-3 17:13

（已解决）感谢三断笛）如何限制文本中输入数字的位数

在文本中限制只输入数字，但如何限制数字的位数？
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then
        KeyAscii = 0
    End If

End Sub

[[it] 本帖最后由 jxawgyl 于 2008-6-3 20:19 编辑 [/it]]

multiple1902 发表于 2008-6-3 17:46

不是很清楚了吗……

一、Len(Text1.Text)可以得到文本的长度。
二、(Len(Text1.Text) > MaxLen)返回一个布尔值，告诉你Text1里的文本长度是否超过了MaxLen（自己定义的常量）
三、用这些代码配合If实现。

三断笛 发表于 2008-6-3 19:36

文本框不是有MaxLength属性么?

jxawgyl 发表于 2008-6-3 20:17

谢了，真的太感谢三断笛。

aiwa0311 发表于 2008-6-20 20:34

学习了

jxyga111 发表于 2008-6-21 08:48

一般用代码的,IF LEN(TEXT)>=10 THEN

查看完整版本: （已解决）感谢三断笛）如何限制文本中输入数字的位数