Haegwang/Epole_Class
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

글꼴 기울임 속성 적용

Browse Source
This commit is contained in:
tindevil
2021-01-18 22:27:50 +09:00
parent 38f3d4a51e
commit 888ed0f1bc
6 changed files with 293 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Project_fp13/CEpole_fp13.vbproj
View File

@@ -240,7 +240,7 @@
<Folder Include="코드백업\" /> <Folder Include="코드백업\" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<ProjectReference Include="..\..\Z_Epole_통신%28FP5%29\SubProject\ArinClassV2\ArinClassV2\ArinClassV2.vbproj"> <ProjectReference Include="..\..\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
<Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project> <Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
<Name>ArinClassV2</Name> <Name>ArinClassV2</Name>
</ProjectReference> </ProjectReference>

52
Project_fp13/Defalut_PrintForm.vb
View File

@@ -882,9 +882,16 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "FONT'") Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",") CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) '//장평 TOBJ.WordWidth = CTLFONT(5) '//장평
TOBJ.WordHeight = CTLFONT(6) '//장높이 TOBJ.WordHeight = CTLFONT(6) '//장높이
End If End If
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "VISIBLE'") Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "VISIBLE'")
@@ -1009,7 +1016,13 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'") Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",") CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) '//장평 TOBJ.WordWidth = CTLFONT(5) '//장평
TOBJ.WordHeight = CTLFONT(6) '//장높이 TOBJ.WordHeight = CTLFONT(6) '//장높이
End If End If
@@ -1088,7 +1101,11 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'") Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",") CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) TOBJ.WordWidth = CTLFONT(5)
TOBJ.WordHeight = CTLFONT(6) TOBJ.WordHeight = CTLFONT(6)
'MsgBox(CTLFONT(0)) 'MsgBox(CTLFONT(0))
@@ -2115,7 +2132,14 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다. '//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1)) Tobj.Location = New Point(pos(0), pos(1))
Tobj.Size = New Size(pos(2), pos(3)) Tobj.Size = New Size(pos(2), pos(3))
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0) Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0)
@@ -2136,7 +2160,13 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다. '//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1)) Tobj.Location = New Point(pos(0), pos(1))
Tobj.Size = New Size(pos(2), pos(3)) Tobj.Size = New Size(pos(2), pos(3))
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0) Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0)
@@ -2393,9 +2423,13 @@ Public Class Defalut_PrintForm
DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = 'STYLE" & Tobj.Name.ToUpper & "FONT'") DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = 'STYLE" & Tobj.Name.ToUpper & "FONT'")
If DR.GetUpperBound(0) = 0 Then If DR.GetUpperBound(0) = 0 Then
font = DR(0)(1).ToString.Split(",") font = DR(0)(1).ToString.Split(",")
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
' MsgBox(font(0)) ' MsgBox(font(0))
End If End If
@@ -2454,7 +2488,11 @@ Public Class Defalut_PrintForm
font = DR(0)(1).ToString.Split(",") font = DR(0)(1).ToString.Split(",")
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
' MsgBox(font(0)) ' MsgBox(font(0))
End If End If

2
Project_fp5/CEpole_fp5.vbproj
View File

@@ -232,7 +232,7 @@
<Folder Include="코드백업\" /> <Folder Include="코드백업\" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<ProjectReference Include="..\..\Z_Epole_통신%28FP5%29\SubProject\ArinClassV2\ArinClassV2\ArinClassV2.vbproj"> <ProjectReference Include="..\..\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
<Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project> <Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
<Name>ArinClassV2</Name> <Name>ArinClassV2</Name>
</ProjectReference> </ProjectReference>

430
Project_fp5/Defalut_PrintForm.vb
View File

@@ -265,7 +265,7 @@ Public Class Defalut_PrintForm
''' 초기화합니다. ''' 초기화합니다.
''' </summary> ''' </summary>
''' <remarks></remarks> ''' <remarks></remarks>
Public Sub Initialize(ByVal V_Srctable As DataTable, ByVal styleTag As String, _ Public Sub Initialize(ByVal V_Srctable As DataTable, ByVal styleTag As String,
ByVal v_SettingFile As String, ByVal v_DefStyleIndex As Short, Optional ByVal ADT As DataTable = Nothing, Optional ByVal OT As Boolean = False) ByVal v_SettingFile As String, ByVal v_DefStyleIndex As Short, Optional ByVal ADT As DataTable = Nothing, Optional ByVal OT As Boolean = False)
RaiseEvent StatusMessage("폼을 초기화합니다", e_EventMessage.Normal) RaiseEvent StatusMessage("폼을 초기화합니다", e_EventMessage.Normal)
@@ -882,7 +882,12 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "FONT'") Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname2 & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",") CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) '//장평 TOBJ.WordWidth = CTLFONT(5) '//장평
TOBJ.WordHeight = CTLFONT(6) '//장높이 TOBJ.WordHeight = CTLFONT(6) '//장높이
End If End If
@@ -1009,7 +1014,11 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'") Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",") CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) '//장평 TOBJ.WordWidth = CTLFONT(5) '//장평
TOBJ.WordHeight = CTLFONT(6) '//장높이 TOBJ.WordHeight = CTLFONT(6) '//장높이
End If End If
@@ -1088,7 +1097,11 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'") Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then If Dr.GetUpperBound(0) = 0 Then
CTLFONT = Dr(0)(1).ToString.Split(",") CTLFONT = Dr(0)(1).ToString.Split(",")
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Dim fStyle As FontStyle = FontStyle.Regular
If CTLFONT(2).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If CTLFONT(3).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If CTLFONT(4).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
TOBJ.Font = New Font(CTLFONT(0), CTLFONT(1), fStyle, GraphicsUnit.Point)
TOBJ.WordWidth = CTLFONT(5) TOBJ.WordWidth = CTLFONT(5)
TOBJ.WordHeight = CTLFONT(6) TOBJ.WordHeight = CTLFONT(6)
'MsgBox(CTLFONT(0)) 'MsgBox(CTLFONT(0))
@@ -1536,126 +1549,235 @@ Public Class Defalut_PrintForm
'//라인을 그린다. '//라인을 그린다.
Dim I As Short = 0 Dim I As Short = 0
Try Try
If Not Me.Draw_Line Is Nothing AndAlso Not Draw_Line.Items Is Nothing Then
For Each Rect As S_Line In Me.Draw_Line.Items
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
For Each Rect As S_Line In Me.Draw_Line.Items Dim NewSX As Single = Rect.X
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) Dim NewSY As Single = Rect.Y
Dim NewSX2 As Single = Rect.X2
Dim NewSY2 As Single = Rect.Y2
Dim NewSX As Single = Rect.X If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다.
Dim NewSY As Single = Rect.Y NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Dim NewSX2 As Single = Rect.X2 NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Dim NewSY2 As Single = Rect.Y2 NewSX2 += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
NewSY2 += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Else
NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt
NewSX2 += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY2 += SetForm.MyProperty_Paper.연속여백y * dummycnt
End If
If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다. NewSX += RowOffsetX
NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수) NewSY += RowOffsetY
NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
NewSX2 += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
NewSY2 += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Else
NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt
NewSX2 += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY2 += SetForm.MyProperty_Paper.연속여백y * dummycnt
End If
NewSX += RowOffsetX NewSX2 += RowOffsetX
NewSY += RowOffsetY NewSY2 += RowOffsetY
NewSX2 += RowOffsetX If Print Then
NewSY2 += RowOffsetY NewSX += SetForm.MyProperty_Paper.출력여백X
NewSY += SetForm.MyProperty_Paper.출력여백Y
If Print Then NewSX2 += SetForm.MyProperty_Paper.출력여백X
NewSX += SetForm.MyProperty_Paper.출력여백X NewSY2 += SetForm.MyProperty_Paper.출력여백Y
NewSY += SetForm.MyProperty_Paper.출력여백Y End If
NewSX2 += SetForm.MyProperty_Paper.출력여백X Ga.DrawLine(Pen, NewSX, NewSY, NewSX2, NewSY2)
NewSY2 += SetForm.MyProperty_Paper.출력여백Y
End If
Ga.DrawLine(Pen, NewSX, NewSY, NewSX2, NewSY2) Next
End If
Next
Catch ex As Exception Catch ex As Exception
End Try End Try
'//박스를 그린다. '//박스를 그린다.
I = 0 I = 0
Try Try
For Each Rect As S_Box In Me.Draw_Box.Items If Not Me.Draw_Box Is Nothing AndAlso Not Me.Draw_Box.Items Is Nothing Then
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) For Each Rect As S_Box In Me.Draw_Box.Items
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
Dim NewSX As Single = Rect.X Dim NewSX As Single = Rect.X
Dim NewSY As Single = Rect.Y Dim NewSY As Single = Rect.Y
If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다. If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다.
NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수) NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수) NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Else Else
NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt
End If End If
NewSX += RowOffsetX NewSX += RowOffsetX
NewSY += RowOffsetY NewSY += RowOffsetY
If Print Then If Print Then
NewSX += +SetForm.MyProperty_Paper.출력여백X NewSX += +SetForm.MyProperty_Paper.출력여백X
NewSY += +SetForm.MyProperty_Paper.출력여백Y NewSY += +SetForm.MyProperty_Paper.출력여백Y
End If End If
If Rect.Radius = 0 Then If Rect.Radius = 0 Then
Ga.DrawRectangle(Pen, NewSX, NewSY, Rect.Width, Rect.Height) Ga.DrawRectangle(Pen, NewSX, NewSY, Rect.Width, Rect.Height)
Else Else
Dim rRect As Rectangle = New Rectangle(NewSX, NewSY, Rect.Width, Rect.Height) Dim rRect As Rectangle = New Rectangle(NewSX, NewSY, Rect.Width, Rect.Height)
Dim rpath As System.Drawing.Drawing2D.GraphicsPath = ACC.MYGDI.GetRoundedRectPath(rRect, Rect.Radius) Dim rpath As System.Drawing.Drawing2D.GraphicsPath = ACC.MYGDI.GetRoundedRectPath(rRect, Rect.Radius)
Ga.DrawPath(Pen, rpath) Ga.DrawPath(Pen, rpath)
End If End If
Next
End If
Next
Catch ex As Exception Catch ex As Exception
End Try End Try
'//원 그린다. '//원 그린다.
I = 0 I = 0
Try Try
For Each Rect As S_Circle In Me.Draw_Circle.Items If Not Draw_Circle Is Nothing AndAlso Not Me.Draw_Circle.Items Is Nothing Then
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) For Each Rect As S_Circle In Me.Draw_Circle.Items
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
Dim NewSX As Single = Rect.X Dim NewSX As Single = Rect.X
Dim NewSY As Single = Rect.Y Dim NewSY As Single = Rect.Y
If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다. If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다.
NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수) NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수) NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Else Else
NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt
End If End If
NewSX += RowOffsetX NewSX += RowOffsetX
NewSY += RowOffsetY NewSY += RowOffsetY
If Print Then If Print Then
NewSX += +SetForm.MyProperty_Paper.출력여백X NewSX += +SetForm.MyProperty_Paper.출력여백X
NewSY += +SetForm.MyProperty_Paper.출력여백Y NewSY += +SetForm.MyProperty_Paper.출력여백Y
End If End If
Ga.DrawEllipse(Pen, NewSX, NewSY, Rect.Width, Rect.Height) Ga.DrawEllipse(Pen, NewSX, NewSY, Rect.Width, Rect.Height)
Next Next
End If
Catch ex As Exception Catch ex As Exception
End Try End Try
'//이미지개체를 그린다. '//이미지개체를 그린다.
I = 0 I = 0
Try Try
For Each Rect As S_Image In Me.Draw_Image.Items If Not Draw_Image Is Nothing AndAlso Not Me.Draw_Image.Items Is Nothing Then
Dim F As String = Rect.FileName For Each Rect As S_Image In Me.Draw_Image.Items
If F.Trim <> "" Then Dim F As String = Rect.FileName
F = F.Replace(".\", My.Application.Info.DirectoryPath & "\") If F.Trim <> "" Then
' MsgBox(F) F = F.Replace(".\", My.Application.Info.DirectoryPath & "\")
' MsgBox(F)
If System.IO.File.Exists(F) Then If System.IO.File.Exists(F) Then
Dim Image As Image = Image.FromFile(F) '//파일로부터 이미지를 가져옴 Dim Image As Image = Image.FromFile(F) '//파일로부터 이미지를 가져옴
Dim NewSX As Single = Rect.X
Dim NewSY As Single = Rect.Y
If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다.
NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Else
NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt
End If
NewSX += RowOffsetX
NewSY += RowOffsetY
If Print Then
NewSX += +SetForm.MyProperty_Paper.출력여백X
NewSY += +SetForm.MyProperty_Paper.출력여백Y
End If
If Rect.Width = 0 OrElse Rect.Height = 0 Then
Ga.DrawImage(Image, NewSX, NewSY)
Else
Ga.DrawImage(Image, NewSX, NewSY, Rect.Width, Rect.Height)
End If
End If
End If
Next
End If
Catch ex As Exception
End Try
I = 0
'//QR코드를 그린다.
Try
'//QR코드를 그린다.
If Not Draw_QRcode Is Nothing AndAlso Not Me.Draw_QRcode.Items Is Nothing Then
For Each Rect As S_QRCode In Me.Draw_QRcode.Items
'Dim scale As Int16
' Dim version As Int16
Dim image As Image
Dim data As String = ""
' Dim errorCorrect As String
Dim qrCodeEncoder1 As New ThoughtWorks.QRCode.Codec.QRCodeEncoder()
' Dim encoding As String
qrCodeEncoder1.QRCodeEncodeMode = CInt(Rect.Encoding)
qrCodeEncoder1.QRCodeErrorCorrect = CInt(Rect.CLeve)
qrCodeEncoder1.QRCodeVersion = Rect.Version
qrCodeEncoder1.QRCodeScale = Rect.Size
'encoding = "3"
'If encoding = "3" Then
' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE
'ElseIf encoding = "1" Then
' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC
'ElseIf encoding = "2" Then
' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC
' Try
' version = Convert.ToInt16("1")
' qrCodeEncoder.QRCodeVersion = version
' Catch ex As Exception
' End Try
'End If
'errorCorrect = "1"
'If errorCorrect = "1" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L
'ElseIf errorCorrect = "2" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M
'ElseIf errorCorrect = "3" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q
'ElseIf errorCorrect = "4" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H
'End If
If Rect.Format = "" Then Rect.Format = "{DATA}"
Rect.Format = Rect.Format.Replace("{DATA}", "{QR1}")
Rect.Format = Rect.Format.Replace("{QR}", "{QR1}") '//151029
'//151029 qr코드버그처리
Dim PrintQRCODE As String = Rect.Format.Replace("{QR1}", QRCODE1)
PrintQRCODE = PrintQRCODE.Replace("{QR2}", QRCODE2)
PrintQRCODE = PrintQRCODE.Replace("{QR3}", QRCODE3)
PrintQRCODE = PrintQRCODE.Replace("{QR4}", QRCODE4)
PrintQRCODE = PrintQRCODE.Replace("{번호}", 일련번호)
If PrintQRCODE <> "" Then '//사용자가 입력한 데이터가 있다.
'Ga.DrawString(QRCODE, New Font("arial", 30), Brushes.Black, 100, 100)
qrCodeEncoder1.QRCodeBackgroundColor = Rect.bColor
qrCodeEncoder1.QRCodeForegroundColor = Rect.fColor
image = qrCodeEncoder1.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY)
Dim NewSX As Single = Rect.X Dim NewSX As Single = Rect.X
@@ -1678,110 +1800,15 @@ Public Class Defalut_PrintForm
End If End If
If Rect.Width = 0 OrElse Rect.Height = 0 Then If Rect.Width = 0 OrElse Rect.Height = 0 Then
Ga.DrawImage(Image, NewSX, NewSY) Ga.DrawImage(image, NewSX, NewSY)
Else Else
Ga.DrawImage(Image, NewSX, NewSY, Rect.Width, Rect.Height) Ga.DrawImage(image, NewSX, NewSY, Rect.Width, Rect.Height)
End If End If
End If End If
End If Next
Next End If
Catch ex As Exception
End Try
I = 0
'//QR코드를 그린다.
Try
'//QR코드를 그린다.
For Each Rect As S_QRCode In Me.Draw_QRcode.Items
'Dim scale As Int16
' Dim version As Int16
Dim image As Image
Dim data As String = ""
' Dim errorCorrect As String
Dim qrCodeEncoder1 As New ThoughtWorks.QRCode.Codec.QRCodeEncoder()
' Dim encoding As String
qrCodeEncoder1.QRCodeEncodeMode = CInt(Rect.Encoding)
qrCodeEncoder1.QRCodeErrorCorrect = CInt(Rect.CLeve)
qrCodeEncoder1.QRCodeVersion = Rect.Version
qrCodeEncoder1.QRCodeScale = Rect.Size
'encoding = "3"
'If encoding = "3" Then
' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE
'ElseIf encoding = "1" Then
' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC
'ElseIf encoding = "2" Then
' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC
' Try
' version = Convert.ToInt16("1")
' qrCodeEncoder.QRCodeVersion = version
' Catch ex As Exception
' End Try
'End If
'errorCorrect = "1"
'If errorCorrect = "1" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L
'ElseIf errorCorrect = "2" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M
'ElseIf errorCorrect = "3" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q
'ElseIf errorCorrect = "4" Then
' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H
'End If
If Rect.Format = "" Then Rect.Format = "{DATA}"
Rect.Format = Rect.Format.Replace("{DATA}", "{QR1}")
Rect.Format = Rect.Format.Replace("{QR}", "{QR1}") '//151029
'//151029 qr코드버그처리
Dim PrintQRCODE As String = Rect.Format.Replace("{QR1}", QRCODE1)
PrintQRCODE = PrintQRCODE.Replace("{QR2}", QRCODE2)
PrintQRCODE = PrintQRCODE.Replace("{QR3}", QRCODE3)
PrintQRCODE = PrintQRCODE.Replace("{QR4}", QRCODE4)
PrintQRCODE = PrintQRCODE.Replace("{번호}", 일련번호)
If PrintQRCODE <> "" Then '//사용자가 입력한 데이터가 있다.
'Ga.DrawString(QRCODE, New Font("arial", 30), Brushes.Black, 100, 100)
qrCodeEncoder1.QRCodeBackgroundColor = Rect.bColor
qrCodeEncoder1.QRCodeForegroundColor = Rect.fColor
image = qrCodeEncoder1.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY)
Dim NewSX As Single = Rect.X
Dim NewSY As Single = Rect.Y
If RowIndex > 0 Then '//연속출력일때에는 줄구분 값을 사용한다.
NewSX += SetForm.MyProperty_Paper.연속여백x * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
NewSY += SetForm.MyProperty_Paper.연속여백y * (dummycnt - RowIndex * SetForm.MyProperty_Paper.분리갯수)
Else
NewSX += SetForm.MyProperty_Paper.연속여백x * dummycnt
NewSY += SetForm.MyProperty_Paper.연속여백y * dummycnt
End If
NewSX += RowOffsetX
NewSY += RowOffsetY
If Print Then
NewSX += +SetForm.MyProperty_Paper.출력여백X
NewSY += +SetForm.MyProperty_Paper.출력여백Y
End If
If Rect.Width = 0 OrElse Rect.Height = 0 Then
Ga.DrawImage(image, NewSX, NewSY)
Else
Ga.DrawImage(image, NewSX, NewSY, Rect.Width, Rect.Height)
End If
End If
Next
Catch ex As Exception Catch ex As Exception
End Try End Try
@@ -2115,7 +2142,14 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다. '//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1)) Tobj.Location = New Point(pos(0), pos(1))
Tobj.Size = New Size(pos(2), pos(3)) Tobj.Size = New Size(pos(2), pos(3))
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0) Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0)
@@ -2136,7 +2170,13 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다. '//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1)) Tobj.Location = New Point(pos(0), pos(1))
Tobj.Size = New Size(pos(2), pos(3)) Tobj.Size = New Size(pos(2), pos(3))
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0) Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0)
@@ -2395,7 +2435,11 @@ Public Class Defalut_PrintForm
font = DR(0)(1).ToString.Split(",") font = DR(0)(1).ToString.Split(",")
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
' MsgBox(font(0)) ' MsgBox(font(0))
End If End If
@@ -2454,7 +2498,11 @@ Public Class Defalut_PrintForm
font = DR(0)(1).ToString.Split(",") font = DR(0)(1).ToString.Split(",")
Tobj.WordWidth = font(5) Tobj.WordWidth = font(5)
Tobj.WordHeight = font(6) Tobj.WordHeight = font(6)
Tobj.Font = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) Dim fStyle As FontStyle = FontStyle.Regular
If font(2).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Underline
If font(3).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Bold
If font(4).ToUpper() = "TRUE" Then fStyle = fStyle Or FontStyle.Italic
Tobj.Font = New Font(font(0), font(1), fStyle, GraphicsUnit.Point)
' MsgBox(font(0)) ' MsgBox(font(0))
End If End If
@@ -3063,7 +3111,7 @@ Public Class Defalut_PrintForm
Tobj = Nothing Tobj = Nothing
For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
If Me.AllLabels(i).visible AndAlso Me.AllLabels(i).Text <> "" AndAlso _ If Me.AllLabels(i).visible AndAlso Me.AllLabels(i).Text <> "" AndAlso
((e.X >= Me.AllLabels(i).Left) And e.X <= (Me.AllLabels(i).Left + Me.AllLabels(i).GetSize.Width)) _ ((e.X >= Me.AllLabels(i).Left) And e.X <= (Me.AllLabels(i).Left + Me.AllLabels(i).GetSize.Width)) _
AndAlso ((e.Y >= Me.AllLabels(i).Top) AndAlso (e.Y <= (Me.AllLabels(i).Top + Me.AllLabels(i).GetSize.Height))) Then AndAlso ((e.Y >= Me.AllLabels(i).Top) AndAlso (e.Y <= (Me.AllLabels(i).Top + Me.AllLabels(i).GetSize.Height))) Then
Tobj = Me.AllLabels(i) Tobj = Me.AllLabels(i)
@@ -3158,7 +3206,7 @@ Public Class Defalut_PrintForm
If Me.DMode = E_DesignMode.Text Then If Me.DMode = E_DesignMode.Text Then
Dim Tobj As CEpole.C_label = Nothing Dim Tobj As CEpole.C_label = Nothing
For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
If Me.AllLabels(i).visible AndAlso Me.AllLabels(i).Text <> "" AndAlso _ If Me.AllLabels(i).visible AndAlso Me.AllLabels(i).Text <> "" AndAlso
((e.X >= Me.AllLabels(i).Left) And e.X <= (Me.AllLabels(i).Left + Me.AllLabels(i).GetSize.Width)) _ ((e.X >= Me.AllLabels(i).Left) And e.X <= (Me.AllLabels(i).Left + Me.AllLabels(i).GetSize.Width)) _
AndAlso ((e.Y >= Me.AllLabels(i).Top) AndAlso (e.Y <= (Me.AllLabels(i).Top + Me.AllLabels(i).GetSize.Height))) Then AndAlso ((e.Y >= Me.AllLabels(i).Top) AndAlso (e.Y <= (Me.AllLabels(i).Top + Me.AllLabels(i).GetSize.Height))) Then
Tobj = Me.AllLabels(i) Tobj = Me.AllLabels(i)
@@ -3205,7 +3253,7 @@ Public Class Defalut_PrintForm
RaiseEvent StatusMessage(">> Create DataView" & DataFilter, e_EventMessage.Normal) RaiseEvent StatusMessage(">> Create DataView" & DataFilter, e_EventMessage.Normal)
If Dv.Count <= 0 Then '//데이터가없다면 If Dv.Count <= 0 Then '//데이터가없다면
MsgBox(StyleList(SelIndex).Desc & "에 해당하는 데이터가존재하지 않습니다" & vbCrLf & _ MsgBox(StyleList(SelIndex).Desc & "에 해당하는 데이터가존재하지 않습니다" & vbCrLf &
vbCrLf & "다른 스타일을 선택하세요", MsgBoxStyle.Information, "확인") vbCrLf & "다른 스타일을 선택하세요", MsgBoxStyle.Information, "확인")
Me.v_picturebox1.Image = Nothing Me.v_picturebox1.Image = Nothing
Else Else
@@ -3443,7 +3491,7 @@ Public Class Defalut_PrintForm
' ' Me.bt_SC.ForeColor = Color.Red ' ' Me.bt_SC.ForeColor = Color.Red
' Me.bt_SL.ForeColor = Color.Black ' Me.bt_SL.ForeColor = Color.Black
End Select End Select
If Not bt_SL2 Is Nothing Then Me.bt_SL2.ForeColor = bt_SL.ForeColor If Not bt_SL2 Is Nothing Then Me.bt_SL2.ForeColor = bt_SL.ForeColor
End With End With

5
Project_fp5/DrawShape.vb
View File

@@ -45,6 +45,7 @@ Public Class Shape_Circle
End Sub End Sub
Public Function Count() As Short Public Function Count() As Short
Try Try
If Me.Draw_Circle Is Nothing Then Return 0
Return Me.Draw_Circle.GetUpperBound(0) + 1 Return Me.Draw_Circle.GetUpperBound(0) + 1
Catch ex As Exception Catch ex As Exception
Return 0 Return 0
@@ -110,6 +111,7 @@ Public Class Shape_Box
End Sub End Sub
Public Function Count() As Short Public Function Count() As Short
Try Try
If Me.Draw_Box Is Nothing Then Return 0
Return Me.Draw_Box.GetUpperBound(0) + 1 Return Me.Draw_Box.GetUpperBound(0) + 1
Catch ex As Exception Catch ex As Exception
Return 0 Return 0
@@ -176,6 +178,7 @@ Public Class Shape_QRcode
End Sub End Sub
Public Function Count() As Short Public Function Count() As Short
Try Try
If Me.Draw_QRcode Is Nothing Then Return 0
Return Me.Draw_QRcode.GetUpperBound(0) + 1 Return Me.Draw_QRcode.GetUpperBound(0) + 1
Catch ex As Exception Catch ex As Exception
Return 0 Return 0
@@ -238,6 +241,7 @@ Public Class Shape_line
End Sub End Sub
Public Function Count() As Short Public Function Count() As Short
Try Try
If Me.Draw_line Is Nothing Then Return 0
Return Me.Draw_line.GetUpperBound(0) + 1 Return Me.Draw_line.GetUpperBound(0) + 1
Catch ex As Exception Catch ex As Exception
Return 0 Return 0
@@ -302,6 +306,7 @@ Public Class Shape_Image
End Sub End Sub
Public Function Count() As Short Public Function Count() As Short
Try Try
If Me.Draw_Image Is Nothing Then Return 0
Return Me.Draw_Image.GetUpperBound(0) + 1 Return Me.Draw_Image.GetUpperBound(0) + 1
Catch ex As Exception Catch ex As Exception
Return 0 Return 0

2
Project_fp5/Frm_ConvertINI.vb
View File

@@ -4,6 +4,8 @@
Dim StyleLista() As C_Epole.SStyle Dim StyleLista() As C_Epole.SStyle
Public Function GetFileCount() As Short Public Function GetFileCount() As Short
If Me.allini Is Nothing Then Return 0
Try Try
Return Me.allini.GetUpperBound(0) Return Me.allini.GetUpperBound(0)
Catch ex As Exception Catch ex As Exception