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="코드백업\" />
</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>
<Name>ArinClassV2</Name>
</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'")
If Dr.GetUpperBound(0) = 0 Then
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.WordHeight = CTLFONT(6) '//장높이
End If
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'")
If Dr.GetUpperBound(0) = 0 Then
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.WordHeight = CTLFONT(6) '//장높이
End If
@@ -1088,7 +1101,11 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then
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.WordHeight = CTLFONT(6)
'MsgBox(CTLFONT(0))
@@ -2115,7 +2132,14 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1))
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.WordHeight = font(6)
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.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.WordHeight = font(6)
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'")
If DR.GetUpperBound(0) = 0 Then
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.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))
End If
@@ -2454,7 +2488,11 @@ Public Class Defalut_PrintForm
font = DR(0)(1).ToString.Split(",")
Tobj.WordWidth = font(5)
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))
End If

2
Project_fp5/CEpole_fp5.vbproj
View File

@@ -232,7 +232,7 @@
<Folder Include="코드백업\" />
</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>
<Name>ArinClassV2</Name>
</ProjectReference>

72
Project_fp5/Defalut_PrintForm.vb
View File

@@ -265,7 +265,7 @@ Public Class Defalut_PrintForm
''' 초기화합니다.
''' </summary>
''' <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)
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'")
If Dr.GetUpperBound(0) = 0 Then
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.WordHeight = CTLFONT(6) '//장높이
End If
@@ -1009,7 +1014,11 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then
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.WordHeight = CTLFONT(6) '//장높이
End If
@@ -1088,7 +1097,11 @@ Public Class Defalut_PrintForm
Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select("설명 = '" & pname & TOBJ.Name & "FONT'")
If Dr.GetUpperBound(0) = 0 Then
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.WordHeight = CTLFONT(6)
'MsgBox(CTLFONT(0))
@@ -1536,7 +1549,7 @@ Public Class Defalut_PrintForm
'//라인을 그린다.
Dim I As Short = 0
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)
@@ -1574,12 +1587,15 @@ Public Class Defalut_PrintForm
Ga.DrawLine(Pen, NewSX, NewSY, NewSX2, NewSY2)
Next
End If
Catch ex As Exception
End Try
'//박스를 그린다.
I = 0
Try
If Not Me.Draw_Box Is Nothing AndAlso Not Me.Draw_Box.Items Is Nothing Then
For Each Rect As S_Box In Me.Draw_Box.Items
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
@@ -1611,12 +1627,15 @@ Public Class Defalut_PrintForm
End If
Next
End If
Catch ex As Exception
End Try
'//원 그린다.
I = 0
Try
If Not Draw_Circle Is Nothing AndAlso Not Me.Draw_Circle.Items Is Nothing Then
For Each Rect As S_Circle In Me.Draw_Circle.Items
Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
@@ -1642,12 +1661,15 @@ Public Class Defalut_PrintForm
Ga.DrawEllipse(Pen, NewSX, NewSY, Rect.Width, Rect.Height)
Next
End If
Catch ex As Exception
End Try
'//이미지개체를 그린다.
I = 0
Try
If Not Draw_Image Is Nothing AndAlso Not Me.Draw_Image.Items Is Nothing Then
For Each Rect As S_Image In Me.Draw_Image.Items
Dim F As String = Rect.FileName
If F.Trim <> "" Then
@@ -1687,6 +1709,8 @@ Public Class Defalut_PrintForm
End If
End If
Next
End If
Catch ex As Exception
End Try
@@ -1694,6 +1718,7 @@ Public Class Defalut_PrintForm
'//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
@@ -1782,6 +1807,8 @@ Public Class Defalut_PrintForm
End If
Next
End If
Catch ex As Exception
End Try
@@ -2115,7 +2142,14 @@ Public Class Defalut_PrintForm
'//상태를 읽어서 바로 적용한다.
Tobj.Location = New Point(pos(0), pos(1))
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.WordHeight = font(6)
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.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.WordHeight = font(6)
Tobj.WordSpace = Arinini.Read(StyleName, Tobj.Name & "space", 0)
@@ -2395,7 +2435,11 @@ Public Class Defalut_PrintForm
font = DR(0)(1).ToString.Split(",")
Tobj.WordWidth = font(5)
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))
End If
@@ -2454,7 +2498,11 @@ Public Class Defalut_PrintForm
font = DR(0)(1).ToString.Split(",")
Tobj.WordWidth = font(5)
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))
End If
@@ -3063,7 +3111,7 @@ Public Class Defalut_PrintForm
Tobj = Nothing
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)) _
AndAlso ((e.Y >= Me.AllLabels(i).Top) AndAlso (e.Y <= (Me.AllLabels(i).Top + Me.AllLabels(i).GetSize.Height))) Then
Tobj = Me.AllLabels(i)
@@ -3158,7 +3206,7 @@ Public Class Defalut_PrintForm
If Me.DMode = E_DesignMode.Text Then
Dim Tobj As CEpole.C_label = Nothing
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)) _
AndAlso ((e.Y >= Me.AllLabels(i).Top) AndAlso (e.Y <= (Me.AllLabels(i).Top + Me.AllLabels(i).GetSize.Height))) Then
Tobj = Me.AllLabels(i)
@@ -3205,7 +3253,7 @@ Public Class Defalut_PrintForm
RaiseEvent StatusMessage(">> Create DataView" & DataFilter, e_EventMessage.Normal)
If Dv.Count <= 0 Then '//데이터가없다면
MsgBox(StyleList(SelIndex).Desc & "에 해당하는 데이터가존재하지 않습니다" & vbCrLf & _
MsgBox(StyleList(SelIndex).Desc & "에 해당하는 데이터가존재하지 않습니다" & vbCrLf &
vbCrLf & "다른 스타일을 선택하세요", MsgBoxStyle.Information, "확인")
Me.v_picturebox1.Image = Nothing
Else

5
Project_fp5/DrawShape.vb
View File

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

2
Project_fp5/Frm_ConvertINI.vb
View File

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