VB2008: 独自例外とは？

質問

独自例外の確認ための質問をします。

独自例外の発生をキャッチして表示する術がわからなくて苦肉の策でエラートラップを利用。
しかし、こういう事であれば何も独自例外を設定する必要がありません。
と思ったり、「スルーだからテストに＜０除算＞を選んだのが悪いのか？」と考えたり。
ともかく、判っているのか判っていないのかが判らない状態に陥っています。

そういうことで、独自例外について少し教えて頂ければ幸いです。

' ==============================
'　クラスプログラミング; 演習2
' ==============================
Module theClass
　　Sub Main()
　　　　On Error GoTo Error_Main
　　　　Dim T1 As New TEST1

　　　　Debug.Print(T1.MembersLengthAverage.ToString)
Exit_Main:
　　　　Exit Sub
Error_Main:
　　　　ErrorMsg(Err.Description & "(Main)")
　　　　Resume Exit_Main
　　End Sub
End Module

' ==================================================================
'　クラス TEST1
' ==================================================================
<Serializable()> Public Class TEST1
　　Private _MemberCount As Integer
　　Private _Member1 As String
　　Private _Member2 As String

　　 ReadOnly Property MembersLengthAverage() As Integer
　　　　Get
　　　　　　If _MemberCount <> 0 Then
　　　　　　　　Return (_Member1.Length + _Member2.Length) \ _MemberCount
　　　　　　Else
　　　　　　　　Throw New System.Exception("TEST1: 除算エラーが発生しました。" )
　　　　　　End If
　　　　End Get
　　End Property

　　Public Sub New()
　　　　_Member1 = ""
　　　　_Member2 = ""
　　End Sub
End Class

回答No.1

noname#259269 · ベストアンサー

>独自例外の発生をキャッチして表示する術

これが質問内容なら、Try～Catch を使ってください、というのが回答です。

独自例外を発生させるというのが質問内容であれば、System.Exception を継承したクラスを作成し、そのクラスのインスタンスを Throw する、というのが回答です。

多分上記の２回答であっているとは思うのですが、いまいち文章がよくわかりませんので、箇条書きにするなど、質問にあたっては、趣旨をもう少し整理して書いてみてください。

お礼

まず、質問すべき点さえ整理出来ていない状態でした。

１、独自例外そのものの概念把握を間違っていました。
２、また、独自例外は独自例外独自の発生（表示）方法がある。

ということに気付きました。

そういうことで、

＞System.Exception を継承したクラスを作成し、そのクラスのインスタンスを Throw する

しなければならないのは当然のこと。

余りにもアホな質問で内容も意味不明。

-----------------------------------------------------------------------------------

こんなアホな質問に答えていただきありがとうございます。

-----------------------------------------------------------------------------------