如何在一个文本框里限制输入的小数位数不能超过三位
如123.456

这个问题是越来越复杂了
要限制文本框只能输入数字、只能输入一个小数点。小数位数不能超过三位
如果小数点前面只有0（0的个数为2个或2个以上时），自动改为1个0

问题不是很复杂,主要是对对文本框的内容进行截取与判断.

兄弟最好给个方法,小弟也学习一下.

Private Sub Text1_Change()
   Dim str1 As String, str2 As String, n As Integer
   str1 = Text1.Text
   str2 = Right(str1, 1)
   If str2 = "." Then
      n = Len(str1)
      Text1.MaxLength = n + 3
   End If
End Sub

楼上的好像没写完哦

试试看！
Private Sub Text4_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then KeyAscii = 0
If Left(Text4.Text, 1) = "0" And Mid(Text4.Text, 2, 1) <> "." And KeyAscii <> 46 And KeyAscii <> 8 Then Text4.Text = Right(Text4.Text, Len(Text4.Text) - 1)
If KeyAscii = Asc(".") And InStr(Text4.Text, ".") > 0 Then KeyAscii = 0
If Len(Text4.Text) > 3 And InStr(Right(Text4.Text, 4), ".") = 1 And KeyAscii <> 8 Then KeyAscii = 0
End Sub

限制文本框只能输入数字,只能输入一个小数点,小数位数不能超过三位,整数或小数点前面只能有1个0。

学习了