Programación de bases de datos con Visual Basic .NET

Listado 1.14

La gestión de errores en VB .NET

Sub ExcepcionEjemplo()

Dim intCodigo As Integer

Try

intCodigo = CInt(Text1.Text)

Catch ex1 As Exception When isNumeric(Text1.Text) = False

MsgBox("Hay que poner un número")

Text1.Select

Exit Sub

Catch ex As Exception

MsgBox("" & ex.Message & "" " _

& "si el problema se repite contacte con su proveedor"))

Exit Sub

Finally

Beep()

End Try

End Sub