例如：文本框的名称为 Text1。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(Text1.Text, ".") And KeyAscii = 46 Then
KeyAscii = 0
End If
End Sub
InStr 函数检查是否存在“.”，KeyAscii = 46 表示按下“.”时。
整个意思就是：如果存在“.” 与 按下“.” 那么，KeyAscii = 0 屏蔽。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024