public static int fnFIE_get_objtype(
	FHANDLE h
)

Public Shared Function fnFIE_get_objtype ( 
	h As FHANDLE
) As Integer

//    $Revision: 1.1 $

using System;
using System.Collections.Generic;
using System.Text;
using fvalgcli;

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// オブジェクトタイプの取得.
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_get_objtype()
        {
            int status = (int)f_err.F_ERR_NONE;

            FHANDLE hsrc = FHANDLE.Zero;
            int type;

            try
            {
                // -- オブジェクトハンドルにNULLが渡された場合.
                // 処理の実行.
                type = api.fnFIE_get_objtype(hsrc);

                // エラー判定.
                Assert.IsTrue(type == 0, "エラーが発生しました。({0})", (f_err)status);

                // -- オブジェクトハンドルがNULL以外の場合.
                // オブジェクトの生成.
                hsrc = api.fnFIE_img_root_alloc((int)f_imgtype.F_IMG_UC8, 1, 256, 256); ;

                // 処理の実行.
                type = api.fnFIE_get_objtype(hsrc);

                // エラー判定.
                Assert.IsTrue(type == (int)f_objtag.F_OBJID_IMG_ROOT, "エラーが発生しました。({0})", (f_err)status);
            }
            finally
            {
                // オブジェクトの開放.
                hsrc.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports fvalgcli

Public Partial Class FIE
    ''' <summary>
    ''' オブジェクトタイプの取得.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_get_objtype()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim hsrc As FHANDLE = FHANDLE.Zero
        Dim type As Integer

        Try
            ' -- オブジェクトハンドルにNULLが渡された場合.
            ' 処理の実行.
            type = api.fnFIE_get_objtype(hsrc)

            ' エラー判定.
            Assert.IsTrue(type = 0, "エラーが発生しました。({0})", CType(status, f_err))

            ' -- オブジェクトハンドルがNULL以外の場合.
            ' オブジェクトの生成.
            hsrc = api.fnFIE_img_root_alloc(CInt(f_imgtype.F_IMG_UC8), 1, 256, 256)



            ' 処理の実行.
            type = api.fnFIE_get_objtype(hsrc)

            ' エラー判定.
            Assert.IsTrue(type = CInt(f_objtag.F_OBJID_IMG_ROOT), "エラーが発生しました。({0})", CType(status, f_err))
        Finally
            ' オブジェクトの開放.
            hsrc.Dispose()
        End Try
    End Sub
End Class