System.DivideByZero クラスから継承する ZeroException という名前の継承クラスを作成しましたが、dividebyzero 例外が発生してもイベントをキャッチしません。
Class ZeroException
Inherits System.DivideByZero
Public Overrides ReadOnly Property Message() as String
Get
Return "Divide By Zero"
End Get
End Property
End Class
メインコード:
Sub Calc()
dim x as integer=5
dim y as integer=0
dim k as single
Try
k=x\y 'Integer Division
Catch ex as ZeroException
Console.WriteLine(ex.Message) 'But I get another message. Not Divide By Zero
End Try
End Sub