langs a-z

Task/Exceptions/Visual-Basic-.NET/exceptions-1.visual

@@ -0,0 +1,4 @@
+Class MyException
+  Inherits Exception
+  'data with info about exception
+End Class

Task/Exceptions/Visual-Basic-.NET/exceptions-2.visual

@@ -0,0 +1,3 @@
+Sub foo()
+    Throw New MyException
+End Sub

Task/Exceptions/Visual-Basic-.NET/exceptions-3.visual

@@ -0,0 +1,13 @@
+Sub bar()
+    Try
+        foo()
+    Catch e As MyException When e.Data.Contains("Foo")
+        ' handle exceptions of type MyException when the exception contains specific data
+    Catch e As MyException
+        ' handle exceptions of type MyException and derived exceptions
+    Catch e As Exception
+        ' handle any type of exception not handled by above catches
+    Finally
+        'code here occurs whether or not there was an exception
+    End Try
+End Sub