屏蔽文本框仅接受小数点后的1位数

Question

我正在使用VB6，我想让用户在小数点后只输入一位， 请帮忙。

Answer 1

将下面的代码放在文本框的更改事件中。我认为 ”。” point用于十进制分隔符。如果使用“，”昏迷，则用昏迷改变代码中的点。

Private Sub TextBox1_Change()
Dim strA As String
Dim intP As Integer

    strA = TextBox1.Text
    intP = InStr(1, strA, ".", vbTextCompare)

    If intP > 0 Then TextBox1.Text = Left(strA, intP + 1)
End Sub