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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Juego del ahorcado
- Popurri
- Crear MsgBox

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