public class SelectCameraForm : Form

Public Class SelectCameraForm
	Inherits Form

using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using fvalgcli;
using System.Windows.Forms;
using FVIL.DS;

namespace User.SampleCode
{
    public partial class DS
    {
        /// <summary>
        /// カメラ選択フォーム.
        /// </summary>
        /// <remarks>
        /// カメラ選択ダイアログを表示します.
        /// </remarks>
        [FvPluginExecute]
        public void SelectCameraForm_Show()
        {
            try
            {
                // 1) インスタンスの生成.
                FVIL.DS.SelectCameraForm form = new FVIL.DS.SelectCameraForm();

                // 2) カメラ選択ダイアログの表示.
                form.ShowDialog();

                // 3) パラメータの取得.
                FVIL.DS.CFviGrabberParam param = form.GetParam();

                // 4) XMLファイル保存.(書式:Name_WxH.xml)
                {
                    string filename = string.Format("{0}_{1}x{2}.xml",
                        param.FilterInfo.Name,
                        param.FilterFormatInfo.VideoSize.Width,
                        param.FilterFormatInfo.VideoSize.Height
                    );
                    FVIL.File.Function.SaveXml(filename, param);
                }

                // E) 確認.
                {
                    Console.WriteLine("FilterCategory    : {0}", param.FilterCategory);
                    Console.WriteLine("FilterFormatInfo : {0}", param.FilterFormatInfo);
                    Console.WriteLine("FilterInfo        : {0}", param.FilterInfo);
                    Console.WriteLine("FilterPinInfo    : {0}", param.FilterPinInfo);
                    Console.WriteLine("RenderID            : {0}", param.RenderID);
                    Console.WriteLine("SampleFormatInfo : {0}", param.SampleFormatInfo);

                    Console.WriteLine("プロパティ：FilterInfo : {0}", form.FilterInfo);
                    Console.WriteLine("プロパティ：PinInfo : {0}", form.PinInfo);
                    Console.WriteLine("プロパティ：FormatInfo : {0}", form.FormatInfo);
                }
            }
            catch (FVIL.DS.CFviExceptionDS ex)
            {
                Console.WriteLine("Message:{0}", ex.Message );
                Console.WriteLine("DSMessage:{0}", CFviExceptionDS.GetDirectShowMessage(ex.ComError));
            }
            catch (FVIL.CFviException ex)
            {
                Console.WriteLine("--Function = {0} ErrorCode = {1}", ex.Function, ex.ErrorCode);
                Console.WriteLine("--Message:{0}", ex.Message);
            }
            catch (System.Exception ex)
            {
                Console.WriteLine("--Message:{0}", ex.Message);
            }
        }
    }
}

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli
Imports System.Windows.Forms
Imports FVIL.DS

Namespace SampleCode
    Public Partial Class DS
        ''' <summary>
        ''' カメラ選択フォーム.
        ''' </summary>
        ''' <remarks>
        ''' カメラ選択ダイアログを表示します.
        ''' </remarks>
        <FvPluginExecute> _
        Public Sub SelectCameraForm_Show()
            Try
                ' 1) インスタンスの生成.
                Dim form As New FVIL.DS.SelectCameraForm()

                ' 2) カメラ選択ダイアログの表示.
                form.ShowDialog()

                ' 3) パラメータの取得.
                Dim param As FVIL.DS.CFviGrabberParam = form.GetParam()

                ' 4) XMLファイル保存.(書式:Name_WxH.xml)
                If True Then
                    Dim filename As String = String.Format("{0}_{1}x{2}.xml", param.FilterInfo.Name, param.FilterFormatInfo.VideoSize.Width, param.FilterFormatInfo.VideoSize.Height)
                    FVIL.File.[Function].SaveXml(filename, param)
                End If

                ' E) 確認.
                If True Then
                    Console.WriteLine("FilterCategory" & vbTab & ": {0}", param.FilterCategory)
                    Console.WriteLine("FilterFormatInfo : {0}", param.FilterFormatInfo)
                    Console.WriteLine("FilterInfo" & vbTab & vbTab & ": {0}", param.FilterInfo)
                    Console.WriteLine("FilterPinInfo" & vbTab & ": {0}", param.FilterPinInfo)
                    Console.WriteLine("RenderID" & vbTab & vbTab & vbTab & ": {0}", param.RenderID)
                    Console.WriteLine("SampleFormatInfo : {0}", param.SampleFormatInfo)

                    Console.WriteLine("プロパティ：FilterInfo : {0}", form.FilterInfo)
                    Console.WriteLine("プロパティ：PinInfo : {0}", form.PinInfo)
                    Console.WriteLine("プロパティ：FormatInfo : {0}", form.FormatInfo)
                End If
            Catch ex As FVIL.DS.CFviExceptionDS
                Console.WriteLine("Message:{0}", ex.Message)
                Console.WriteLine("DSMessage:{0}", CFviExceptionDS.GetDirectShowMessage(ex.ComError))
            Catch ex As FVIL.CFviException
                Console.WriteLine("--Function = {0} ErrorCode = {1}", ex.[Function], ex.ErrorCode)
                Console.WriteLine("--Message:{0}", ex.Message)
            Catch ex As System.Exception
                Console.WriteLine("--Message:{0}", ex.Message)
            End Try
        End Sub
    End Class
End Namespace