ACEITAR SOMENTE PONTO E VIRGULA UMA UNICA VEZ
Oi. Preciso da ajuda de vocês. tenho a seguinte função só não sei como fazer, para aceitar a virgula ou o ponto uam única vez.
Private Function NumeroVirgulaPonto(KeyAscii As Integer)
If Not Chr(KeyAscii) Like [Ô]#[Ô] And KeyAscii <> 8 And KeyAscii <> 46 And KeyAscii <> 44 Then KeyAscii = 0
End Function
Private Function NumeroVirgulaPonto(KeyAscii As Integer)
If Not Chr(KeyAscii) Like [Ô]#[Ô] And KeyAscii <> 8 And KeyAscii <> 46 And KeyAscii <> 44 Then KeyAscii = 0
End Function
Use o inStr pra ver se já existe na string ou na caixa de texto
é uma text isso?
é uma text isso?
Faz assim que funciona...
Private Sub txtValor_KeyPress(KeyAscii As Integer)
Const Number$ = [Ô]0123456789,[Ô] [ô] aceitar só estes caracteres
If KeyAscii <> 8 Then
If InStr(Number$, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End If
End Sub
Private Sub txtValor_KeyPress(KeyAscii As Integer)
Const Number$ = [Ô]0123456789,[Ô] [ô] aceitar só estes caracteres
If KeyAscii <> 8 Then
If InStr(Number$, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End If
End Sub
Tópico encerrado , respostas não são mais permitidas