'=========================================================================
'クラス名称：プロバイダ情報設定ダイアログ
'機能      ：各種プロバイダの情報を設定する
'備考      ：なし
'=========================================================================
Public Class frmProviderSetting
    Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "

    Public Sub New()
        MyBase.New()

        ' この呼び出しは Windows フォーム デザイナで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後に初期化を追加します。

    End Sub

    ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Windows フォーム デザイナで必要です。
    Private components As System.ComponentModel.IContainer

    ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
    'Windows フォーム デザイナを使って変更してください。  
    ' コード エディタを使って変更しないでください。
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents btnCancel As System.Windows.Forms.Button
    Friend WithEvents btnOK As System.Windows.Forms.Button
    Friend WithEvents txtProvName As System.Windows.Forms.TextBox
    Friend WithEvents txtProvID As System.Windows.Forms.TextBox
    Friend WithEvents txtProvMachine As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txtProvOption As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.txtProvName = New System.Windows.Forms.TextBox
        Me.txtProvID = New System.Windows.Forms.TextBox
        Me.txtProvMachine = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.btnCancel = New System.Windows.Forms.Button
        Me.btnOK = New System.Windows.Forms.Button
        Me.Label4 = New System.Windows.Forms.Label
        Me.txtProvOption = New System.Windows.Forms.TextBox
        Me.SuspendLayout()
        '
        'txtProvName
        '
        Me.txtProvName.Location = New System.Drawing.Point(64, 24)
        Me.txtProvName.Name = "txtProvName"
        Me.txtProvName.Size = New System.Drawing.Size(280, 19)
        Me.txtProvName.TabIndex = 0
        Me.txtProvName.Text = "camera"
        '
        'txtProvID
        '
        Me.txtProvID.Location = New System.Drawing.Point(64, 56)
        Me.txtProvID.Name = "txtProvID"
        Me.txtProvID.Size = New System.Drawing.Size(280, 19)
        Me.txtProvID.TabIndex = 1
        Me.txtProvID.Text = "CaoProv.Samples.Camera"
        '
        'txtProvMachine
        '
        Me.txtProvMachine.Location = New System.Drawing.Point(64, 88)
        Me.txtProvMachine.Name = "txtProvMachine"
        Me.txtProvMachine.Size = New System.Drawing.Size(280, 19)
        Me.txtProvMachine.TabIndex = 2
        Me.txtProvMachine.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(64, 16)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "名前"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 56)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 16)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "ID"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 88)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(64, 16)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "マシン名"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(240, 168)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(72, 24)
        Me.btnCancel.TabIndex = 8
        Me.btnCancel.Text = "キャンセル"
        '
        'btnOK
        '
        Me.btnOK.Location = New System.Drawing.Point(144, 168)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(72, 24)
        Me.btnOK.TabIndex = 7
        Me.btnOK.Text = "OK"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 120)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 9
        Me.Label4.Text = "パラメータ"
        '
        'txtProvOption
        '
        Me.txtProvOption.Location = New System.Drawing.Point(64, 120)
        Me.txtProvOption.Name = "txtProvOption"
        Me.txtProvOption.Size = New System.Drawing.Size(280, 19)
        Me.txtProvOption.TabIndex = 6
        Me.txtProvOption.Text = ""
        '
        'frmProviderSetting
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
        Me.ClientSize = New System.Drawing.Size(360, 206)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.txtProvOption)
        Me.Controls.Add(Me.txtProvMachine)
        Me.Controls.Add(Me.txtProvID)
        Me.Controls.Add(Me.txtProvName)
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.btnOK)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "frmProviderSetting"
        Me.Text = "プロバイダ設定"
        Me.ResumeLayout(False)

    End Sub

#End Region

    ' プロバイダ情報管理クラス
    Private provInfo As ProviderInfo

    '*********************************************************************
    '関数名称  ：設定反映処理
    '機能      ：ダイアログに入力した設定を反映し，ダイアログを閉じる
    '引数      ：sender
    '            e
    '戻り値    ：なし
    '備考      ：OKボタンが押されたときに呼び出される
    '*********************************************************************
    Private Sub btnOK_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles btnOK.Click
        provInfo.provName = txtProvName.Text
        provInfo.provID = txtProvID.Text
        provInfo.provMachine = txtProvMachine.Text
        provInfo.provParam = txtProvOption.Text
        Me.Close()
    End Sub

    '*********************************************************************
    '関数名称  ：終了処理
    '機能      ：入力した設定を反映せずにダイアログを閉じる
    '引数      ：sender
    '            e
    '戻り値    ：なし
    '備考      ：キャンセルボタンが押されたときに呼び出される
    '*********************************************************************
    Private Sub btnCancel_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    '*********************************************************************
    '関数名称  ：初期化処理
    '機能      ：プロバイダ情報ダイアログを初期化する
    '引数      ：sender
    '            e
    '戻り値    ：なし
    '備考      ：ダイアログが生成されたときに呼び出される
    '*********************************************************************
    Private Sub frmProviderSetting_Load(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles MyBase.Load
        provInfo = ProviderInfo.GetInstance
        txtProvName.Text = provInfo.provName
        txtProvID.Text = provInfo.provID
        txtProvMachine.Text = provInfo.provMachine
        txtProvOption.Text = provInfo.provParam
    End Sub

End Class