'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