掩码文本框只接受小数后1位数字

Question

我正在使用VB6，我希望允许用户只输入小数后的一位数字，
请帮忙。

Answer 1

将下面的代码放入文本框的change事件中。我认为"."点用于小数分隔符。如果使用了"，"昏迷，则将代码中的点更改为昏迷。

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