home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / NETFrameworkSDK.exe / comsdk.cab / samples.exe / exceptions / VBServer / TestExcept.vb < prev   
Encoding:
Text File  |  2000-06-23  |  3.2 KB  |  90 lines
  1. '+==========================================================================
  2. '  File:      TestExcept.cls
  3. '
  4. '  Summary:   This file implements the TestExcept class
  5. '
  6. '  Classes:   TestExcept
  7. '
  8. '  Functions: CustomException, TestDivideByZero, TestNullReferenceException
  9. '
  10. '----------------------------------------------------------------------------
  11. '  This file is part of the Microsoft NGWS Samples.
  12. '
  13. '  Copyright (C) 1998-2000 Microsoft Corporation.  All rights reserved.
  14. '==========================================================================+
  15. Option Strict Off
  16.  
  17. Imports System
  18. Imports Microsoft.VisualBasic
  19.  
  20. NameSpace MyTestException
  21. Public Class TestExcept
  22.  
  23. '******************************************************************************
  24. 'Function : CustomException(ByVal bThrowException As Boolean) As String
  25. '
  26. 'Abstract: It does nothing, just prints out the Method name, unless 
  27. '          bThrowException is true, in which case, MyCustomException is thrown.
  28. '
  29. 'Input Parameters: Boolean (if true, this function throws a MyCustomException)
  30. ' 
  31. 'Returns: String
  32. '******************************************************************************
  33. Public Function CustomException(ByVal bThrowException As Boolean) As String
  34.     Console.WriteLine ("VB TestExcept.CustomException")
  35.     If bThrowException Then
  36.         Dim Except as MyCustomException
  37.         Except = New MyCustomException()
  38.         Throw (Except)
  39.     End If
  40.     
  41.     CustomException = "Done...Not Thrown CustomException"
  42. End Function
  43.  
  44. '******************************************************************************
  45. 'Function : TestDivideByZero(ByVal bThrowException As Boolean) As String
  46. '
  47. 'Abstract: It does nothing, just prints out the Method name, unless 
  48. '          bThrowException is true, in which case, a DivideByZeroException is 
  49. '          thrown.
  50. '
  51. 'Input Parameters: Boolean (if true, this function throws a MyCustomException)
  52. ' 
  53. 'Returns: String
  54. '******************************************************************************
  55. Public Function TestDivideByZero(ByVal bThrowException As Boolean) As String
  56.     Console.WriteLine ("VB TestExcept.TestDivideByZero")
  57.     If bThrowException Then
  58.         Dim x As Integer
  59.         Dim y As Integer
  60.         x = 0
  61.         y = 5 / x
  62.         Console.WriteLine (y)
  63.     End If
  64.         
  65.     TestDivideByZero = "Done...Not Thrown TestDivideByZero"
  66. End Function
  67.  
  68. '******************************************************************************
  69. 'Function : TestNullReferenceException(ByVal bThrowException As Boolean) As String
  70. '
  71. 'Abstract: It does nothing, just prints out the Method name, unless 
  72. '          bThrowException is true, in which case, a NullReferenceException is 
  73. '          thrown.
  74. '
  75. 'Input Parameters: Boolean (if true, this function throws a MyCustomException)
  76. ' 
  77. 'Returns: String
  78. '******************************************************************************
  79. Public Function TestNullReferenceException(ByVal bThrowException As Boolean) As String
  80.     Console.WriteLine ("VB TestExcept.TestNullReferenceException")
  81.     Dim o as String
  82.     If bThrowException Then
  83.         Dim i as Integer
  84.         i = o.Length
  85.     End If
  86.     
  87.     TestNullReferenceException = "Done...Not Thrown TestNullReferenceException"
  88. End Function
  89. End Class
  90. End Namespace