各位大侠帮帮忙,小女子学艺不精,遇到困难了
文本框内输入数字,小数点后只能有两位小数,该怎么实现啊?
谢谢啦先!!!

不记得了
好象有个属性就是限定输入的字符数。。。前几个数字是：max..什么的 你在属性窗口找找。。。

那个是maxlength吧?是限制输入文本框的字符串的长度的
我是想限制小数点后数字的位数,不过还是谢谢你啦!

用format()函數

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1) - InStrRev(Text1, ".") >= 2 And InStr(Text1, ".") <> 0 Then
If KeyAscii = 13 Or KeyAscii = 8 Or KeyAscii = 9 Then
Else
KeyAscii = 0
End If
End If
End Sub

真的是万分感谢啊

如果不用键盘输入呢？嘿嘿

那就请你赐教一下了!

复制好象是 3 粘贴好象是22 加上就可以了， 不过要先把剪切板的数据 进行处理才可以的

'给个简单点的

Private Sub Text1_Change()
Static Flag As Boolean
Dim D As Double

On Error Resume Next

If Flag Then Exit Sub
D = Val(Text1.Text)
Flag = True
Text1.Text = Format(D, "#0.00")
Flag = False
End Sub