Маскировка текстовое поле, чтобы принимать только 1 цифра после десятичной

Question

Я использую VB6, и я хочу, чтобы позволить пользователю ввести только одну цифру после десятичной,
пожалуйста, помогите.

Answer 1

Введите код ниже в текстовое поле для изменения. Я думаю "." точка используется для децимального разделителя. if "," coma используется, затем измените точку в коде с помощью coma.

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