Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms

Namespace JapiTest

    Public Class ChildJobList
        Inherits System.Windows.Forms.Form

        Private m_JobNo As Integer
        Private m_GetJobNumber As Integer
        Private m_JobNoList As Int32()

        '/// <summary>
        '/// ChildJobList ̊Tv̐łB
        '/// hWuꗗ̌ʂ̃_CAO\܂
        '/// </summary>    
        Public Sub New(ByVal JobNo As Integer, ByVal GetJobNumber As Integer, _
            ByVal JobNoList As Int32())
            MyBase.New()
            ' ̌Ăяo Windows tH[ fUCiŕKvłB
            InitializeComponent()

            ' InitializeComponent() Ăяǒɏǉ܂B
            tbResultChildListJobNo.Text = JobNo.ToString()
            tbResultChildListGetNumber.Text = GetJobNumber.ToString()

            If JobNoList Is Nothing Then
                Exit Sub
            Else
                Dim i As Integer
                For Each i In JobNoList
                    lbChidJobList.Items.Add(i.ToString())
                Next
            End If

        End Sub

        Property ThisProperty1() As Integer
            Get
                ThisProperty1 = m_JobNo
            End Get
            Set(ByVal Value As Integer)
                m_JobNo = Value
            End Set
        End Property

        Property ThisProperty2() As Integer
            Get
                ThisProperty2 = m_GetJobNumber
            End Get
            Set(ByVal Value As Integer)
                m_GetJobNumber = Value
            End Set
        End Property

        Property ThisProperty3() As Int32()
            Get
                ThisProperty3 = m_JobNoList
            End Get
            Set(ByVal Value As Int32())
                m_JobNoList = Value
            End Set
        End Property

#Region " Windows tH[ fUCiŐꂽR[h "

        ' Form  dispose I[o[ChăR|[lgꗗ܂B
        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 tH[ fUCiŕKvłB
        Private components As System.ComponentModel.IContainer

        '  : ȉ̃vV[ẂAWindows tH[ fUCiŕKvłB
        ' Windows tH[ fUCigĕύXĂB  
        ' R[h GfB^͎gpȂłB
        Friend WithEvents label3 As System.Windows.Forms.Label
        Friend WithEvents lbChidJobList As System.Windows.Forms.ListBox
        Friend WithEvents label2 As System.Windows.Forms.Label
        Friend WithEvents tbResultChildListGetNumber As System.Windows.Forms.TextBox
        Friend WithEvents tbResultChildListJobNo As System.Windows.Forms.TextBox
        Friend WithEvents label1 As System.Windows.Forms.Label
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.label3 = New System.Windows.Forms.Label()
            Me.lbChidJobList = New System.Windows.Forms.ListBox()
            Me.label2 = New System.Windows.Forms.Label()
            Me.tbResultChildListGetNumber = New System.Windows.Forms.TextBox()
            Me.tbResultChildListJobNo = New System.Windows.Forms.TextBox()
            Me.label1 = New System.Windows.Forms.Label()
            Me.SuspendLayout()
            '
            'label3
            '
            Me.label3.Location = New System.Drawing.Point(16, 80)
            Me.label3.Name = "label3"
            Me.label3.Size = New System.Drawing.Size(80, 16)
            Me.label3.TabIndex = 11
            Me.label3.Text = "Wuԍꗗ"
            '
            'lbChidJobList
            '
            Me.lbChidJobList.ItemHeight = 12
            Me.lbChidJobList.Location = New System.Drawing.Point(24, 96)
            Me.lbChidJobList.Name = "lbChidJobList"
            Me.lbChidJobList.Size = New System.Drawing.Size(192, 88)
            Me.lbChidJobList.TabIndex = 10
            '
            'label2
            '
            Me.label2.Location = New System.Drawing.Point(16, 48)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(64, 23)
            Me.label2.TabIndex = 9
            Me.label2.Text = "擾"
            '
            'tbResultChildListGetNumber
            '
            Me.tbResultChildListGetNumber.Location = New System.Drawing.Point(112, 56)
            Me.tbResultChildListGetNumber.Name = "tbResultChildListGetNumber"
            Me.tbResultChildListGetNumber.Size = New System.Drawing.Size(104, 19)
            Me.tbResultChildListGetNumber.TabIndex = 8
            Me.tbResultChildListGetNumber.Text = ""
            '
            'tbResultChildListJobNo
            '
            Me.tbResultChildListJobNo.Location = New System.Drawing.Point(112, 24)
            Me.tbResultChildListJobNo.Name = "tbResultChildListJobNo"
            Me.tbResultChildListJobNo.Size = New System.Drawing.Size(104, 19)
            Me.tbResultChildListJobNo.TabIndex = 7
            Me.tbResultChildListJobNo.Text = ""
            '
            'label1
            '
            Me.label1.Location = New System.Drawing.Point(16, 16)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(80, 23)
            Me.label1.TabIndex = 6
            Me.label1.Text = "eWuԍ"
            '
            'ChildJobList
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
            Me.ClientSize = New System.Drawing.Size(240, 213)
            Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.label3, Me.lbChidJobList, Me.label2, Me.tbResultChildListGetNumber, Me.tbResultChildListJobNo, Me.label1})
            Me.Name = "ChildJobList"
            Me.Text = "hWuꗗ"
            Me.ResumeLayout(False)

        End Sub

#End Region

    End Class

End Namespace
