Programación General > Visual Basic 6.0 e inferiores

 Solo numeros

(1/1)

andres69:
Amigos, tengo el siguiente poroblemilla: en una caja de texto agrege este codigo en el evento keypress, lo que hace es que solo admite puros numeros si yo oprimo la tecla de espaciado sale el mensaje de rror o cualquier otra tecla queno sea numero hasta ahora todo bien pero cuando yo intento eliminar un numero con la tecla de retroceso me sale el error y no se como cinfigurarle el codigo para que me acepte esa tecla y el sup. GRACIAS!


--- Código: Visual Basic ---  If KeyAscii < 48 Or KeyAscii > 57 Then    KeyAscii = 0    MsgBox "Solo se permiten números", vbInformation, "MENSAJE"    End If  

Nebire:
Claro, el problema está que keypress es un evento que sucede con el cambio...
La solución más óptima es utilizar el evento Validate.

el código dentro de dicho evento será algo como:


--- Código: Visual Basic --- Private Sub Text1_Validate(Cancel As Boolean)    If IsNumeric(Text1.Text) = False Then        Cancel = True        ' por ejemplo avisamos        MsgBox "sólo una expresión numérica.."                '  y por ejemplo borramos        Text1.Text = ""    Else        ' aquí el código que queramos hacer... sabiendo que es un número    End IfEnd Sub    

andres69:
Gracias Neberi por la yuda!

Te invito un par de cervezas :beer:
 :good:

Navegación

[0] Índice de Mensajes