|
|
Curso gratis de Visual Basic Agregando tratamiento de errores muy
censillo
|
|
24. Tratamiento de
errores para la aplicación anterior
Se le va a agregar a la aplicación realizada en
el punto anterior un pequeño código de tratamiento de errores.
Educación, cultura, arte y entretenimientos en
www.estudiargratis.com.ar A continuación haremos el tratamiento de errores:
2. Antes de la línea en la que
pusimos la formula, pondremos la siguiente línea, para que si se produce
un error se realice el código llamado por dicha línea:
On Error GoTo vErr |
Donde GoTo
significa ir a
vErr es como he
llamado a la línea de tratamiento de errores
Debajo de la
formula se pondrá entonces el código para tratar el error, en este caso
devolverá un mensaje:
|
vErr:
If Err.Number = 13 Then
Text3.Text = "Error, operación no admitida"
Else
Text3.Text = "correcto"
End If |
Nota: He utilizado el tex3 para dar los resultados de los errores para que
la aplicación no quede bloqueada
3. Realice el
tratamiento de errores también para text2 es lo mismo que se hizo antes.
El código entero quedaría:
|
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo xErr
Text1.Text = (Text2.Text - 32) * 5 / 9
xErr:
If
Err.Number = 13 Then 'error de tipo
Text3.Text = "Error, operación no admitida"
Else
Text3.Text = "correcto"
End If
End Sub |
|
|
-
Ahora se le
agregará código a los menú, podrá hacerlo de la siguiente forma: en
vista formulario realice un clic en archivo, dos en salir. Otra forma,
en el primer menú desplegable de vista código busque en este caso salir
(si le puso ese nombre) e introduzca el siguiente código:
Unload
Me
End
-
En "acerca de" irá:
Form2.Show vbModal
Nota: Esto muestra un Form2 oculto
-
En el botón de
form2 se tendrá que poner:
Unload
Me
End
Si lo desea,
rellene el caption de Label de form2, insértele un icono a form1 uno y
un caption con el nombre de la aplicación. Préstele atención a este
ejemplo analice lo que ha realizado aquí, si tan solo se limita a copiar
los códigos este ejemplo no le servirá de nada y muy probable tampoco le
funcione, analice cada código que se insertó. |
|
|
-