在文本中限制只输入数字，但如何限制数字的位数？
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]]

不是很清楚了吗……

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

文本框不是有MaxLength属性么?

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

学习了

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