Visual Basic - Signo menos en importe

Life is soft - evento anual de software empresarial
   
Vista:

Signo menos en importe

Publicado por Antonio (93 intervenciones) el 08/04/2009 21:24:38
Hola a todos.

Que código faltaría poner al siguiente, para que me deje poner el signo menos delante del importe, para cuando es negativo?

'Limitar solo entrada dígitos numéricos
If KeyAscii = 27 Then
Unload Me
ElseIf KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If Not IsNumeric("0" & nTexBox.Text & Chr(KeyAscii)) Then
Beep
KeyAscii = 0
End If
End If

Saludos cordiales.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Signo menos en importe

Publicado por P3L30N2009 (701 intervenciones) el 09/04/2009 09:20:32
sustituye

ElseIf KeyAscii <> 8 Then
If Not IsNumeric("0" & nTexBox.Text & Chr(KeyAscii)) Then

por

ElseIf InStr("0123456789.-" & Chr(8), Chr(KeyAscii)) = 0 Then

Si el número no admite decimales, quita el punto de la cadena.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Signo menos en importe

Publicado por Antonio (93 intervenciones) el 09/04/2009 09:58:18
Gracias P3L30N2009.
Saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar