langs a-z

Task/Exceptions/Visual-Basic/exceptions-1.vb

@@ -0,0 +1,7 @@
+Sub foo1()
+    err.raise(vbObjectError + 1050)
+End Sub
+
+Sub foo2()
+    Error vbObjectError + 1051
+End Sub

Task/Exceptions/Visual-Basic/exceptions-2.vb

@@ -0,0 +1,40 @@
+Sub bar1()
+'by convention, a simple handler
+    On Error Goto Catch
+    fooX
+    Exit Sub
+Catch:
+    'handle all exceptions
+    Exit Sub
+
+Sub bar2()
+'a more complex handler, illustrating some of the flexibility of VBA exception handling
+    on error goto catch
+100     fooX
+200     fooY
+    'finally block may be placed anywhere: this is complexity for it's own sake:
+    goto finally
+
+catch:
+    if erl= 100 then
+        ' handle exception at first line: in this case, by ignoring it:
+        resume next
+    else
+        select case err.nummber
+        case vbObjectError + 1050
+            ' handle exceptions of type 1050
+        case vbObjectError + 1051
+            ' handle exceptions of type 1051
+        case else
+            ' handle any type of exception not handled by above catches or line numbers
+    resume finally
+
+finally:
+    'code here occurs whether or not there was an exception
+    'block may be placed anywhere
+    'by convention, often just a drop through to an Exit Sub, rather tnan a code block
+    Goto end_try:
+
+end_try:
+    'by convention, often just a drop through from the catch block
+exit sub