Boa Tarde,

 

Estou criando um sistema de pdv que o operador na hora de lançar os valores clica neles como se fosse uma calculadora, so que eu gostaria de fazer sem o ponto decimal, mas que entre com decimal já, tipo a pessoa digita 12 e no visor sai 0,12 e se ele digitar mais um numero 5 apareça no visor 1,25 e assim por diante, será que alguem pode me ajudar.

 

Obrigado.

Tenho esta função mais o menos parecido com o que você quer, ela proibi textos caso a pessoa digite a virgula por que muitas pessoas ja estão abituadas a fazer este procedimento e se a pessoa esquece ele acrescenta......

 

 

Private Sub Valor_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
    Case 8              'Backspace (seta de apagar)
    Case 48 To 57       'Números de 0 a 9
    Case 44             'Vírgula
        If InStr(Valor.Text, ",") Then   'Se o campo já tiver vírgula então ele não adiciona
            KeyAscii = 0    'Não adiciona a vírgula caso ja tenha
        Else
            KeyAscii = 44   'Adiciona uma vírgula
        End If
    Case Else
        KeyAscii = 0      'Não deixa nenhuma outra caractere ser escrito
End Select

End Sub