elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Píldoras formativas en seguridad de la información


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderadores: Novlucker, seba123neo, kub0x, Eleкtro)
| | | |-+  Instrucciones para Excepciones
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Instrucciones para Excepciones  (Leído 1,473 veces)
DSREY

Desconectado Desconectado

Mensajes: 27


Ver Perfil
Instrucciones para Excepciones
« en: 7 Agosto 2017, 05:15 »

hola, estuve googleando buscando ejemplos de como utilizar ciertas excepciones pero solo encuentro sintaxys y quisiera algún ejemplo sencillo de como se utiliza cada uno de estos terminos
aclaro que quiero saber como se usan estos terminos dentro del manejo de exepciones (try...catch) para visual basic en aplicacion consola

termnos:

1) WHEN
2) NUMBER
3) DESCRIPTION
4) ON ERROR
5) THROW
6) EXIT TRY


En línea

Eleкtro
🌍 🕉️ 🛏️ Novato Astral 🛏️ 🕉️ 🌍 y...
Moderador Global
***
Desconectado Desconectado

Mensajes: 9.298


El sentido común es el menos común de los sentidos


Ver Perfil
Re: Instrucciones para Excepciones
« Respuesta #1 en: 7 Agosto 2017, 12:14 »

Las preguntas sobre Visual Basic.NET debes publicarlas en el foro de .NET, no en el de Visual Basic 6.

Por favor, aclara si tu pregunta es sobre VB6 o VB.NET, ya que has preguntado por keywords o palabras clave de ambos lenguajes... y otros términos que diréctamente no existen ("NUMBER", "DESCRIPTION" ...¿?)



Todo lo que necesitas saber con ejemplos incluidos está en la documentación oficial de Microsoft...

+

PD: La sentencia On Error Go To / Resume Next es de VB6 antiguo. Es algo obsoleto, un modo desestructurado de controlar excepciones que ni por asomo se te debería pasar por la cabeza aplicarlo en la programación de un código VB.NET.



Aunque ahí arriba tienes muchos ejemplos de uso, de todas formas he escrito este mini ejemplo por si te sirve:

Código
  1. Dim filepaths As String() = {
  2.    "C:\qwerty.file",
  3.    "C:\ratatata.txt",
  4.    "C:\Windows\Explorer.exe"
  5. }
  6.  
  7. Dim fs As FileStream = Nothing
  8.  
  9. For Each filepath As String In filepaths
  10.    Try
  11.        fs = File.Open(filepath, FileMode.Open, FileAccess.ReadWrite)
  12.  
  13.        ' Controla la excepción de tipo 'FileNotFoundException' solamente cuando el nombre del archivo implicado es "C:\qwerty.file".
  14.    Catch ex As FileNotFoundException When ex.FileName = "C:\qwerty.file"
  15.        MessageBox.Show("Catch ex As FileNotFoundException When ex.FileName = ""C:\qwerty.file""" & Environment.NewLine & ex.Message())
  16.  
  17.        ' Controla las demás excepciones de tipo 'FileNotFoundException'.
  18.    Catch ex As FileNotFoundException
  19.        MessageBox.Show("Catch ex As FileNotFoundException" & Environment.NewLine & ex.ToString())
  20.  
  21.        ' Controla la excepción de tipo 'IOException' solamente cuando el código de error H_RESULT es 'ERROR_SHARING_VIOLATION'.
  22.    Catch ex As IOException When ex.HResult = &H80070020
  23.        MessageBox.Show("Catch ex As IOException When ex.HResult = &H80070020" & Environment.NewLine & ex.Message())
  24.  
  25.        ' Controla las demás excepciones de tipo 'IOException'.
  26.    Catch ex As IOException
  27.        MessageBox.Show("Catch ex As IOException" & Environment.NewLine & ex.Message())
  28.  
  29.        ' Controla el resto de posibles excepciones. ( Todas las excepciones derivan de la clase 'System.Exception'. )
  30.    Catch ex As Exception
  31.        MessageBox.Show("Catch ex As Exception" & Environment.NewLine & ex.Message())
  32.  
  33.        ' Nota: las instrucciones del bloque 'Finally' se ejecutarán al terminar la ejecución del bloque 'Try/Catch',
  34.        ' por lo que podemos (y debemos) utilizar este bloque para asegurarnos de liberar recursos acumulados en el bloque 'Try'.
  35.    Finally
  36.        If (fs IsNot Nothing) Then
  37.            fs.Dispose()
  38.        End If
  39.  
  40.    End Try
  41. Next filepath

Saludos.


« Última modificación: 7 Agosto 2017, 12:30 por Eleкtro » En línea


[/cent
DSREY

Desconectado Desconectado

Mensajes: 27


Ver Perfil
Re: Instrucciones para Excepciones
« Respuesta #2 en: 15 Agosto 2017, 01:12 »

ok, gracias y si me sirvio mucho,
cuando tenga alguna duda ya la publicare en .net

por cierto elektro se ve q dominas bien programacion..  en unos años tambn lo hare asi.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines