Visual Basic 6.0
Ver Más instrucciones
1
iniciar un nuevo proyecto seleccionando el "EXE estándar " plantilla después de abrir Visual Basic ( VB ) . Esto abre una ventana de formulario denominado " Form1 ". Para demostrar cómo funciona la validación , añadir estos controles a la forma de la " caja de herramientas " sobre la izquierda de la pantalla , haga doble clic en cada uno :
One " Label ", representada por un gran capital "A" icono .
One " TextBox ", representado por un icono de un pequeño cuadrado que contiene las letras "AB ".
Two " CommandButtons ", representado por un icono pequeño rectángulo en blanco.
2
Haga clic en y arrastre los controles que acaba de agregar a separarlos y alinearlos como se enumeran a continuación. Cada control añadió cubre las anteriores , por lo que la parte superior que muestra en este momento es la última " CommandButton ", llamada " Command2 ".
Mover el cuadro " Command2 " para el lado derecho del formulario .
Move " Command1 " por encima " Command2 ".
Move " Label1 " en el lado izquierdo de la forma opuesta " Command1 ".
Move " Texto 1 " por debajo " Label1 . "
3
Haga clic en" Label1 "y cambiar la " "propiedad de la " Leyenda Propiedades " en la columna de la derecha de la pantalla para leer " Introduzca el número deseado entre 1 y 1000 . " Haga clic en " Texto 1 " y eliminar la propiedad "Texto " default . Cambiar las propiedades de " Leyenda " del " Command1 " en " Go" y " Command2 " a " Cancelar". Cambie la propiedad " CausesValidation " de " Command2 " para "Falso ". Nota : No inserte comillas al hacer estos cambios. Utilice el control de arrastre , las pequeñas plazas alrededor de cada control a ampliar en grado suficiente para mostrar todo el contenido .
4
clic en "Ver" en el menú de nivel superior en Visual Basic y seleccione " Código ". Escriba el código siguiente en líneas separadas exactamente como se muestra :
Private Sub Command1_Click ( )
MsgBox " El número es aceptable. "
End Sub
privado Sub Command2_Click ()
End of
End Sub Private Sub
Text1_Validate ( Cancel As Boolean )
Si No IsNumeric ( Text1.Text ) Entonces
Cancelar = True
ElseIf CDbl ( Text1.Text ) < 1 O CDbl ( Text1.Text ) > 1000 Then
Cancelar = True End
Si
Si Cancelar Entonces
MsgBox "El número introducido debe estar entre 1 y 1000 " , vbExclamation
End If End Sub
5
Press "F5 " para ejecutar el programa. Introduzca un número en el formulario y haga clic en " Aceptar". Si el número se encuentra entre 1 y 1000 , verá un mensaje de aceptación. Pon a prueba mediante la introducción de un número fuera de este rango o texto, que luego da un mensaje de error. Utilice este método para validar otras operaciones y realizar las operaciones deseadas sobre la información introducida .