27/10/2006, 15:23
|
 | | | Fecha de Ingreso: diciembre-2005 Ubicación: Camarillo, CA
Mensajes: 242
Antigüedad: 18 años, 5 meses Puntos: 2 | |
| Con ParamError.GetType.ToString
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Throw New DivideByZeroException
ThrowNew Exception
Catch ex As DivideByZeroException
ProcessException(ex)
Catch ex As Exception
ProcessException(ex)
EndTry
EndSub
PrivateSub ProcessException(ByRef e As Exception)
MsgBox(e.GetType.ToString)
EndSub
|