vb 如何 限制小数点的个数

来源：百度知道 编辑：UC知道 时间：2024/05/28 00:06:56
我通过一个 text1 输入数据进行计算，我想对他加以限制，就是不能输入两个小数点，比如：123.456是正确的，而：123.45.67就是错误的，应如何限制？能不能让它先判断是否已经有小数点了，如果有了，在输入的小数点它就补接收？

可以这样：

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 And InStr(1, Text1.Text, ".") <> 0 Then KeyAscii = 0
End Sub

If (Len(Text1.Text) - Len(Replace(Text1.Text, ".", "")) > 1) Then MsgBox "非法输入"

给你几个方案：

1》if 你已输入一个.，那么就关掉.的再输入，让其Acsii=0
2》每次输入你都查看一次是否已输入一个.,如果没有就让输入一个，如果有,就不让输入了.

3>还有一个查找函数..首先算出当前字符的个数.然后再循环匹配是不是有一个.,有的话就不让输入了.没有就输入.
有一个函数可以用来匹配输入字符的.你可以在谷歌里面输入查找VB函数