170717_220 버젼
This commit is contained in:
chi
128
Epole/문서/SEtcontrol백업.txt
Normal file
128
Epole/문서/SEtcontrol백업.txt
Normal file
@@ -0,0 +1,128 @@
|
||||
|
||||
'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
|
||||
Reference in New Issue
Block a user