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

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