[SerializableAttribute]
public class CFviException : Exception, 
	ICloneable, IFviCopyable, IDisposable

<SerializableAttribute>
Public Class CFviException
	Inherits Exception
	Implements ICloneable, IFviCopyable, IDisposable

//    $Revision: 1.2 $

using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using fvalgcli;    // FvPluginXXXX attribute requires fvalgcli

namespace User.SampleCode
{
    public partial class Basic
    {
        /// <summary>
        /// 例外処理 (1)
        /// </summary>
        [FvPluginExecute]
        public void Exception1()
        {
            try
            {
                double ans = divide1(10, 0);    // (!) この関数が例外を発行します.
            }
            catch (FVIL.CFviException ex)
            {
                Console.WriteLine("ErrorCode={0} Function={1}", ex.ErrorCode, ex.Function);
            }
        }

        /// <summary>
        /// 除算関数.
        /// </summary>
        /// <param name="value1">左辺 (分子)</param>
        /// <param name="value2">右辺 (分母)</param>
        /// <returns>除算結果を返します.</returns>
        private double divide1(double value1, double value2)
        {
            if( value2 == 0.0 )
                throw new FVIL.CFviException(FVIL.ErrorCode.INVALID_PARAMETER, "divide1");
            return value1 / value2;
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli
' FvPluginXXXX attribute requires fvalgcli
Namespace SampleCode
    Public Partial Class Basic
        ''' <summary>
        ''' 例外処理 (1)
        ''' </summary>
        <FvPluginExecute> _
        Public Sub Exception1()
            Try
                    ' (!) この関数が例外を発行します.
                Dim ans As Double = divide1(10, 0)
            Catch ex As FVIL.CFviException
                Console.WriteLine("ErrorCode={0} Function={1}", ex.ErrorCode, ex.[Function])
            End Try
        End Sub

        ''' <summary>
        ''' 除算関数.
        ''' </summary>
        ''' <param name="value1">左辺 (分子)</param>
        ''' <param name="value2">右辺 (分母)</param>
        ''' <returns>除算結果を返します.</returns>
        Private Function divide1(value1 As Double, value2 As Double) As Double
            If value2 = 0.0 Then
                Throw New FVIL.CFviException(FVIL.ErrorCode.INVALID_PARAMETER, "divide1")
            End If
            Return value1 / value2
        End Function
    End Class
End Namespace

//    $Revision: 1.2 $

using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using fvalgcli;    // FvPluginXXXX attribute requires fvalgcli

namespace User.SampleCode
{
    public partial class Basic
    {
        /// <summary>
        /// 例外処理 (2)
        /// </summary>
        [FvPluginExecute]
        public void Exception2()
        {
            try
            {
                double ans = divide2(10, 0);    // (!) この関数が例外を発行します.
            }
            catch (FVIL.CFviException ex)
            {
                Console.WriteLine("ErrorCode={0} Function={1} Message={2}", ex.ErrorCode, ex.Function, ex.Message);
            }
        }

        /// <summary>
        /// 除算関数.
        /// </summary>
        /// <param name="value1">左辺 (分子)</param>
        /// <param name="value2">右辺 (分母)</param>
        /// <returns>除算結果を返します.</returns>
        private double divide2(double value1, double value2)
        {
            // (!) ３番目の引数は Message に格納する文字列を指定します.
            if (value2 == 0.0)
                throw new FVIL.CFviException(FVIL.ErrorCode.INVALID_PARAMETER, "divide2", "分母が 0 です。");
            return value1 / value2;
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli
' FvPluginXXXX attribute requires fvalgcli
Namespace SampleCode
    Public Partial Class Basic
        ''' <summary>
        ''' 例外処理 (2)
        ''' </summary>
        <FvPluginExecute> _
        Public Sub Exception2()
            Try
                    ' (!) この関数が例外を発行します.
                Dim ans As Double = divide2(10, 0)
            Catch ex As FVIL.CFviException
                Console.WriteLine("ErrorCode={0} Function={1} Message={2}", ex.ErrorCode, ex.[Function], ex.Message)
            End Try
        End Sub

        ''' <summary>
        ''' 除算関数.
        ''' </summary>
        ''' <param name="value1">左辺 (分子)</param>
        ''' <param name="value2">右辺 (分母)</param>
        ''' <returns>除算結果を返します.</returns>
        Private Function divide2(value1 As Double, value2 As Double) As Double
            ' (!) ３番目の引数は Message に格納する文字列を指定します.
            If value2 = 0.0 Then
                Throw New FVIL.CFviException(FVIL.ErrorCode.INVALID_PARAMETER, "divide2", "分母が 0 です。")
            End If
            Return value1 / value2
        End Function
    End Class
End Namespace