Visual Basic - control de errores

Life is soft - evento anual de software empresarial
 
Vista:

control de errores

Publicado por druida (1 intervención) el 22/04/2003 17:40:33
Como puedo hacer para controlar la entrada de numeros, puntos y comas en un textbox?
Gracias por vuestra ayuda
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

control de errores

Publicado por J2ML (464 intervenciones) el 22/04/2003 21:59:34
Bueno, existen diversas formas entre ellas te puedo decir:
1.- En el evento Keypress de la caja de texto verificas que el caracter colocado deba ser un dígito numérico, la coma, el punto ó el backspace.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And _
(KeyAscii <> Asc(".")) And (KeyAscii <> Asc(",")) And _
(KeyAscii <> 8) Then KeyAscii = 0
End Sub
2.- Puedes tambien verificar si el contenido de la caja de texto no es numérico te desactive el botón de guardar por ejemplo y/o te muestre una etiqueta que diga error de datos...
Private Sub Text1_Change()
btnguardar.enabled = IsNumeric(Text1)
etiquetaerror.visible = IsNumeric(Text1)
End Sub
3.- Incluso puede hacer mezclas de las dos formas como:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Text1) And CBool(Len(Trim(Text1))) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

Espero te sirva...

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