|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Controla digitação de numeros com casas decimais de um Textbox
|
 |
|
|
|
Postada em 11/4/2002 por Alan
---- NO EVENTO KEYPRESS DO txtCampo
KEYASCII = TratarNumeroDecimal (keyascii, txtCampo)
---- NO MODULO
Public Function TratarNumeroDecimal(intAscii As Integer, ByRef oControle As Object) As Integer
Dim I As Integer
'DEIXA SER DIGITADA SOMENTE A CADEIA DE CARACTERES : "0123456789.,"
If InStr("0123456789.,", Chr(intAscii)) = 0 And intAscii <> 8 Then
TratarNumeroDecimal = 0
Exit Function
End If
'TROCA O PONTO POR VÍRGULA
If intAscii = 46 Then
intAscii = 44
End If
'NÃO PERMITE A DIGITAÇÃO DE VÁRIAS VÍRGULAS
For I = 1 To Len(oControle)
If Mid(oControle, I, 1) = Chr(intAscii) And intAscii = 44 Then
TratarNumeroDecimal = 0
Exit Function
End If
Next I
TratarNumeroDecimal = intAscii
End Function
|
|
|
|
|
