Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Pos As Integer

If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> Asc(".") And KeyAscii <> 8 Then KeyAscii = 0 End If Pos = InStr(Text1.Text, ".") If Pos <> 0 And KeyAscii <> 8 Then If KeyAscii = Asc(".") Then KeyAscii = 0 Else If Len(Mid(Text1.Text, Pos)) > 2 And Text1.SelStart >= Len(Text1.Text) - 2 Then KeyAscii = 0 End If End If End If End Sub 这个代码只针对键盘输入起作用，如果要防止Ctrl+V 或鼠标右键粘贴还要另加代码

以下是引用leon2在2005-3-19 15:53:46的发言： 我不知道楼主是不是想要这个代码，因为楼主没有表达清楚…… Private Sub Text1_KeyPress(ByVal KeyAscii As Integer, ByVal Shift As Integer) If Format(Text1.Text, "###.##") <> Text1.Text Then '格式是否为 xxx.xx KeyAscii = 0 Beep '播放警告声音 End If End Sub

[此贴子已经被作者于2005-3-19 16:02:18编辑过]

还是不行啊。如果按下面的代码去运行的话，小数位就输不上了!!!!!(11楼所说,)另外怎么防止Ctrl+V 或鼠标右键粘贴？？？？ Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Pos As Integer

If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> Asc(".") And KeyAscii <> 8 Then KeyAscii = 0 End If Pos = InStr(Text1.Text, ".") If Pos <> 0 And KeyAscii <> 8 Then If KeyAscii = Asc(".") Then KeyAscii = 0 Else If Len(Mid(Text1.Text, Pos)) > 2 And Text1.SelStart >= Len(Text1.Text) - 2 Then KeyAscii = 0 End If End If End If End Sub 这个代码只针对键盘输入起作用，如果要防止Ctrl+V 或鼠标右键粘贴还要另加代码

[此贴子已经被作者于2005-3-19 17:00:48编辑过]

[此贴子已经被作者于2005-3-19 17:00:30编辑过]