屏蔽文本框只接受小数点后一位数字

Question

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

Answer 1

将下面的代码放在文本框的更改事件中。我认为 ”。”点用于小数点分隔符。如果使用了“,”逗号，则将代码中的点更改为逗号。

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

屏蔽文本框只接受小数点后一位数字

Masking textbox to accept only 1 digit after decimal

vb6

textbox

masking