QR코드에 색상 지정 가능

Epole/출력폼/PropertyGrid.vb

@@ -0,0 +1,179 @@
+Public Class PropertyGrid_Paper
+    '//이것은 페이지의 속성을 가진다.
+    Structure S_Size
+        Dim 가로 As Short
+        Dim 세로 As Short
+        Public Sub New(ByVal w As Short, ByVal h As Short)
+            가로 = w
+            세로 = h
+        End Sub
+    End Structure
+
+    Dim v가로확대 As Single
+    Dim v세로확대 As Single
+    Dim v연속출력횟수 As Short
+    Dim v연속여백x, v연속여백y As Single
+    Dim v배경 As System.Drawing.Image
+    Dim v그림파일 As System.IO.File
+    Dim v파일선택 As New Windows.Forms.Button
+    Dim v출력여백x, v출력여백y As Single
+
+
+    Dim SF As printform
+
+    '    Public Sub New(ByRef pSetfrm As printform)
+    '       SF = pSetfrm
+    '   End Sub
+
+
+
+    Public Property 출력여백X() As Single
+        Get
+            Return v출력여백x
+        End Get
+        Set(ByVal value As Single)
+            v출력여백x = value
+        End Set
+    End Property
+
+    Public Property 출력여백Y() As Single
+        Get
+            Return v출력여백y
+        End Get
+        Set(ByVal value As Single)
+            v출력여백y = value
+        End Set
+    End Property
+
+
+    Public Property 가로확대비율() As Single
+        Get
+            Return Me.v가로확대
+        End Get
+        Set(ByVal value As Single)
+            v가로확대 = value
+        End Set
+    End Property
+
+
+    Public Property 세로확대비율() As Single
+        Get
+            Return Me.v세로확대
+        End Get
+        Set(ByVal value As Single)
+            v세로확대 = value
+        End Set
+    End Property
+
+
+    Public Property 출력장수() As Short
+        Get
+            Return v연속출력횟수
+        End Get
+        Set(ByVal value As Short)
+            v연속출력횟수 = value
+            SF.preview_window()
+        End Set
+    End Property
+
+
+    Public Property 연속여백x() As Single
+        Get
+            Return v연속여백x
+        End Get
+        Set(ByVal value As Single)
+            v연속여백x = value
+            SF.preview_window()
+        End Set
+    End Property
+
+    Public Property 연속여백y() As Single
+        Get
+            Return v연속여백y
+        End Get
+        Set(ByVal value As Single)
+            v연속여백y = value
+            SF.preview_window()
+        End Set
+    End Property
+
+
+
+
+End Class
+
+Public Class PropertyGrid_Image
+
+    Dim Obj As S_Image
+    Dim SF As printform
+    Dim Offset As Short
+
+    Public Sub New(ByVal voffset As Short, ByRef pSetfrm As printform)
+        SF = pSetfrm
+        Obj = Draw_Image.Item(voffset)
+        Me.Offset = voffset
+    End Sub
+
+
+    Public Property 시작좌표X() As Single
+        Get
+            Return Obj.X
+        End Get
+        Set(ByVal value As Single)
+            Obj.X = value
+            Draw_Image.Item(Offset) = Obj
+            'preview_window()
+            SF.Refresh_Drawlist()
+        End Set
+    End Property
+
+    Public Property 시작좌표Y() As Single
+        Get
+            Return Obj.Y
+        End Get
+        Set(ByVal value As Single)
+            Obj.Y = value
+            Draw_Image.Item(Offset) = Obj
+            'preview_window()
+            SF.Refresh_Drawlist()
+        End Set
+    End Property
+
+
+
+    Public Property 가로길이() As Single
+        Get
+            Return Obj.Width
+        End Get
+        Set(ByVal value As Single)
+            Obj.Width = value
+            Draw_Image.Item(Offset) = Obj
+            'preview_window()
+            SF.Refresh_Drawlist()
+        End Set
+    End Property
+    Public Property 세로길이() As Single
+        Get
+            Return Obj.Height
+        End Get
+        Set(ByVal value As Single)
+            Obj.Height = value
+            Draw_Image.Item(Offset) = Obj
+            'preview_window()
+            SF.Refresh_Drawlist()
+        End Set
+    End Property
+
+    Public Property 파일명() As String
+        Get
+            Return Obj.FileName
+        End Get
+        Set(ByVal value As String)
+            Obj.FileName = value
+            Draw_Image.Item(Offset) = Obj
+            'preview_window()
+            SF.Refresh_Drawlist()
+        End Set
+    End Property
+
+End Class