Crear nuestras propias excepciones

Artículo por Club Developers · 10 mayo 2006

2072 vistas

Como cualquier otra clase, podemos crear nuestras propias excepciones. Del padre Exception, heredan dos clases, SystemException y ApplicationException. Por convenio, tendremos que heredar de la segunda.

Por ejemplo, queremos elevar una excepción si damos a una llave el valor de una cadena vac�a.

Creamos la excepción:



vbnet
  1. Public Class CadenaVaciaException
  2.     Inherits ApplicationException
  3.  
  4.     Public Sub New()
  5.         MyBase.New()
  6.     End Sub
  7.  
  8.     Public Sub New(ByVal message As String)
  9.         MyBase.New(message)
  10.     End Sub
  11.  
  12. End Class



Luego, para elevarla usamos:



vbnet
  1. Sub New(ByVal NombreLlave As String, ByVal Valor As String)
  2.     MyBase.New()
  3.     If Valor.Length = 0 Then Throw New CadenaVaciaException("No podemos dar una cadena vac�a a un valor clave")
  4.     MyBase.Add(NombreClave, Valor)
  5. End Sub