Boa noite amigos
Uso este codigo para trocar a virgila por ponto.
Private Sub txtFiltro_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 44 '(,)
KeyAscii = 46 ' troca para (.)
End Select
End Sub
Mas se clikar no ponto do teclado numerico não funciona.
Qual é o numero da tecla que tem um (.) e ( Del ) no teclado numérico ao lado do ( 0 Zero )
Obrigado
Uso este codigo para trocar a virgila por ponto.
Private Sub txtFiltro_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 44 '(,)
KeyAscii = 46 ' troca para (.)
End Select
End Sub
Mas se clikar no ponto do teclado numerico não funciona.
Qual é o numero da tecla que tem um (.) e ( Del ) no teclado numérico ao lado do ( 0 Zero )
Obrigado