VB文本框上的十进制点验证

Question

在按键事件下，我有一个验证输入字符的功能，这是我的代码。

Public Function vNum2(val As Object)

    Dim result As Boolean = False
    Dim allowedChars As String = "0123456789." & vbBack
    Try


        If allowedChars.IndexOf(val) = -1 Then
            result = True
        End If


    Catch ex As Exception
        MsgBox("Error 1010xVNum2: " & ex.Message)
    End Try

    Return result

End Function

当我输入十进制以上的2个点时，如何验证小数？当我按下另一个点时，文本框将不会收到该字符。

例如： - ＆gt;正确输入45.23收到第一个点。       - ＆GT;验证条目45.2.3将不会收到下一个点。

Answer 1

试试这个：

create