FORMATO DO CAMPO

USUARIO.EXCLUIDOS 01/04/2004 00:44:27
#17935
Ola, tenho um campo de texto (txtpreco) ... Formatei esse campo com a opção Format(txtpreco, "0.00") . Porém quando eu digito 12.5 ele assume o valor 125,00 ao invés de 12,5 ... Eu sei que para que ele funcionasse corretamente deveria digitar 12,5 ao invés de 12.5 porém a tecla mais proxima dos numeros na parte direita do teclado é a tecla . (ponto) que fica ao lado do enter , e a virgula fica na parte alfabetica do teclado(longe das teclas numericas).. Como faço para resolver isso?
CAJU 01/04/2004 00:51:25
#17937 Resposta escolhida
Public Function ConsisteTeclaMSK(pValor As String, pTecla As Integer) As Integer
If Not IsNumeric(Chr(pTecla)) Then
If pTecla = 46 Or pTecla = 44 Then
pTecla = 44
For i = 1 To Len(pValor)
If Mid(pValor, i, 1) = "," Then
pTecla = 0
Exit For
End If
Next
Else
If pTecla DIFERENTE 8 Then pTecla = 0
End If
End If
ConsisteTeclaMSK = pTecla
End Function

uso:

Private Sub txtpreco_KeyPress(KeyAscii As Integer)
KeyAscii = ConsisteTeclaMSK(txtpreco, KeyAscii)
End Sub

essa função permite colocar somente numeros e coloca a vírgula(no lugar do ponto)

tranqà¼ilo?
Fechou?
Tópico encerrado , respostas não são mais permitidas
Voltar