Tongsin/SpreadNet.v5/Epole/문서/SEtcontrol백업.txt

        'LoopIndex = 1
        'ReDim Preserve Me.AllFullLabels(A_Firstindex)  '//이건그룹이다.
        'Me.AllFullLabels(A_Firstindex).Desc = "일련번호"
        'Me.AllFullLabels(A_Firstindex).Tag = "U"
        'Me.AllFullLabels(A_Firstindex).Pattern = "SEQPATTERN"
        'Me.AllFullLabels(A_Firstindex).Moved = False
        'For i As Short = FirstIndex To (FirstIndex - 1) + 1 '//여기+1을 변경해서 컨트롤의 세부갯수를 조절한다.
        '    If LoopIndex = 1 Then Me.AllFullLabels(A_Firstindex).Si = FirstIndex '//1번쨰 줄이라면
        '    If Me.AllLabels.GetUpperBound(0) < i Then ReDim Preserve Me.AllLabels(i)
        '    Me.AllLabels(i) = New CEpole.C_label
        '    Me.AllLabels(i).Tag = Me.AllFullLabels(A_Firstindex).Tag
        '    Me.AllLabels(i).설명 = Me.AllFullLabels(A_Firstindex).Desc & LoopIndex    '//이건조만간없앨게획인다.DESC로대체된다.
        '    Me.AllLabels(i).Desc = Me.AllFullLabels(A_Firstindex).Desc & LoopIndex
        '    Me.AllLabels(i).Name = Me.AllFullLabels(A_Firstindex).Tag & LoopIndex
        '    Me.AllLabels(i).Idx = i  '//라벨배열의 인덱스
        '    Me.AllLabels(i).Gidx = A_Firstindex   '//라벨그룹배열의 인덱스
        '    Me.Add_ControlsList(Me.AllLabels(i).Desc)
        '    LoopIndex += 1
        '    FirstIndex += 1
        'Next
        'Me.AllFullLabels(A_Firstindex).Ei = Me.AllLabels.GetUpperBound(0)
        'A_Firstindex += 1

        LoopIndex = 1
        ReDim Preserve Me.AllFullLabels(A_Firstindex)
        Me.chk1.Text = "간선명"
        Me.AllFullLabels(A_Firstindex).Desc = "간선명"
        Me.AllFullLabels(A_Firstindex).Tag = "A"
        Me.AllFullLabels(A_Firstindex).Pattern = "GANSUNPATTERN"
        Me.AllFullLabels(A_Firstindex).Moved = False
        For i As Short = FirstIndex To (FirstIndex - 1) + 20
            If LoopIndex = 1 Then Me.AllFullLabels(A_Firstindex).Si = FirstIndex '//1번쨰 줄이라면
            If Me.AllLabels.GetUpperBound(0) < i Then ReDim Preserve Me.AllLabels(i)
            Me.AllLabels(i) = New CEpole.C_label
            Me.AllLabels(i).Tag = Me.AllFullLabels(A_Firstindex).Tag
            Me.AllLabels(i).설명 = Me.AllFullLabels(A_Firstindex).Desc & LoopIndex
            Me.AllLabels(i).Name = Me.AllFullLabels(A_Firstindex).Tag & LoopIndex
            Me.Add_ControlsList(Me.AllLabels(i).설명)
            LoopIndex += 1
            FirstIndex += 1
        Next
        Me.AllFullLabels(A_Firstindex).Ei = Me.AllLabels.GetUpperBound(0)
        A_Firstindex += 1

        LoopIndex = 1
        ReDim Preserve Me.AllFullLabels(A_Firstindex)
        Me.AllFullLabels(A_Firstindex).Desc = "전주번호"
        Me.chk2.Text = "전주번호"
        Me.AllFullLabels(A_Firstindex).Tag = "B"
        Me.AllFullLabels(A_Firstindex).Pattern = "JUNJUPATTERN"
        Me.AllFullLabels(A_Firstindex).Moved = False
        For i As Short = FirstIndex To (FirstIndex - 1) + 20
            If LoopIndex = 1 Then Me.AllFullLabels(A_Firstindex).Si = FirstIndex '//1번쨰 줄이라면
            If Me.AllLabels.GetUpperBound(0) < i Then ReDim Preserve Me.AllLabels(i)
            Me.AllLabels(i) = New CEpole.C_label
            Me.AllLabels(i).Tag = Me.AllFullLabels(A_Firstindex).Tag
            Me.AllLabels(i).설명 = Me.AllFullLabels(A_Firstindex).Desc & LoopIndex
            Me.AllLabels(i).Name = Me.AllFullLabels(A_Firstindex).Tag & LoopIndex
            Me.Add_ControlsList(Me.AllLabels(i).설명)
            LoopIndex += 1
            FirstIndex += 1
        Next
        Me.AllFullLabels(A_Firstindex).Ei = Me.AllLabels.GetUpperBound(0)
        A_Firstindex += 1

        LoopIndex = 1
        ReDim Preserve Me.AllFullLabels(A_Firstindex)
        Me.AllFullLabels(A_Firstindex).Desc = "시공일"
        Me.chk3.Text = "시공일"
        Me.AllFullLabels(A_Firstindex).Tag = "C"
        Me.AllFullLabels(A_Firstindex).Pattern = "DATEPATTERN"
        Me.AllFullLabels(A_Firstindex).Moved = False
        For i As Short = FirstIndex To (FirstIndex - 1) + 1
            If LoopIndex = 1 Then Me.AllFullLabels(A_Firstindex).Si = FirstIndex '//1번쨰 줄이라면
            If Me.AllLabels.GetUpperBound(0) < i Then ReDim Preserve Me.AllLabels(i)
            Me.AllLabels(i) = New CEpole.C_label
            Me.AllLabels(i).Tag = Me.AllFullLabels(A_Firstindex).Tag
            Me.AllLabels(i).설명 = Me.AllFullLabels(A_Firstindex).Desc & LoopIndex
            Me.AllLabels(i).Name = Me.AllFullLabels(A_Firstindex).Tag & LoopIndex
            Me.Add_ControlsList(Me.AllLabels(i).설명)
            LoopIndex += 1
            FirstIndex += 1
        Next
        Me.AllFullLabels(A_Firstindex).Ei = Me.AllLabels.GetUpperBound(0)
        A_Firstindex += 1

        LoopIndex = 1
        ReDim Preserve Me.AllFullLabels(A_Firstindex)
        Me.AllFullLabels(A_Firstindex).Desc = "시공자"
        Me.chk4.Text = "시공자"
        Me.AllFullLabels(A_Firstindex).Tag = "D"
        Me.AllFullLabels(A_Firstindex).Pattern = "MANPATTERN"
        Me.AllFullLabels(A_Firstindex).Moved = False
        For i As Short = FirstIndex To (FirstIndex - 1) + 1
            If LoopIndex = 1 Then Me.AllFullLabels(A_Firstindex).Si = FirstIndex '//1번쨰 줄이라면
            If Me.AllLabels.GetUpperBound(0) < i Then ReDim Preserve Me.AllLabels(i)
            Me.AllLabels(i) = New CEpole.C_label
            Me.AllLabels(i).Tag = Me.AllFullLabels(A_Firstindex).Tag
            Me.AllLabels(i).설명 = Me.AllFullLabels(A_Firstindex).Desc & LoopIndex
            Me.AllLabels(i).Name = Me.AllFullLabels(A_Firstindex).Tag & LoopIndex
            Me.Add_ControlsList(Me.AllLabels(i).설명)
            LoopIndex += 1
            FirstIndex += 1
        Next
        Me.AllFullLabels(A_Firstindex).Ei = Me.AllLabels.GetUpperBound(0)
        A_Firstindex += 1

        LoopIndex = 1
        ReDim Preserve Me.AllFullLabels(A_Firstindex)
        Me.AllFullLabels(A_Firstindex).Desc = "운용기관"
        Me.chk5.Text = "운용기관"
        Me.AllFullLabels(A_Firstindex).Tag = "E"
        Me.AllFullLabels(A_Firstindex).Pattern = "ORGPATTERN"
        Me.AllFullLabels(A_Firstindex).Moved = False
        For i As Short = FirstIndex To (FirstIndex - 1) + 1
            If LoopIndex = 1 Then Me.AllFullLabels(A_Firstindex).Si = FirstIndex '//1번쨰 줄이라면
            If Me.AllLabels.GetUpperBound(0) < i Then ReDim Preserve Me.AllLabels(i)
            Me.AllLabels(i) = New CEpole.C_label
            Me.AllLabels(i).Tag = Me.AllFullLabels(A_Firstindex).Tag
            Me.AllLabels(i).설명 = Me.AllFullLabels(A_Firstindex).Desc & LoopIndex
            Me.AllLabels(i).Name = Me.AllFullLabels(A_Firstindex).Tag & LoopIndex
            Me.Add_ControlsList(Me.AllLabels(i).설명)
            LoopIndex += 1
            FirstIndex += 1
        Next
        Me.AllFullLabels(A_Firstindex).Ei = Me.AllLabels.GetUpperBound(0)
        A_Firstindex += 1