|
|
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:
-
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
-
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 ) he 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ó |
|
|
-