initial commit
스타일 숨김/표시 처리 기능 추가됨
This commit is contained in:
Chikyun
953
PropertyGrid.vb
Normal file
953
PropertyGrid.vb
Normal file
@@ -0,0 +1,953 @@
|
||||
Imports CEpole.C_Epole
|
||||
|
||||
Public Class PropertyGrid_Ctl
|
||||
'//이것은 Label 개체의 속성을 가진다.
|
||||
Dim Obj() As CEpole.C_label
|
||||
Dim DF As Defalut_PrintForm
|
||||
Dim SF As Frm_Prnset
|
||||
Dim Pos As Integer
|
||||
Public Sub New(ByRef pObj As ArrayList, ByRef pDF As Defalut_PrintForm, ByRef pSetfrm As Frm_Prnset, Optional ByVal vPos As Integer = 0)
|
||||
ReDim Obj(pObj.Count - 1)
|
||||
For i As Integer = 0 To pObj.Count - 1
|
||||
Obj(i) = pObj.Item(i)
|
||||
Next
|
||||
DF = pDF
|
||||
SF = pSetfrm
|
||||
Pos = vPos
|
||||
End Sub
|
||||
Public Sub New(ByRef pObj() As CEpole.C_label, ByRef pDF As Defalut_PrintForm, ByRef pSetfrm As Frm_Prnset, Optional ByVal vPos As Integer = 0)
|
||||
Obj = pObj
|
||||
DF = pDF
|
||||
SF = pSetfrm
|
||||
Pos = vPos
|
||||
End Sub
|
||||
|
||||
<Category("개체조정"), Description("개체의 전경색(글자일경우 글자색)")> _
|
||||
Public Property 전경색 As System.Drawing.Color
|
||||
Get
|
||||
Return Obj(Pos).ForeColor2
|
||||
End Get
|
||||
Set(value As System.Drawing.Color)
|
||||
For Each C As C_label In Obj
|
||||
C.ForeColor2 = value
|
||||
Next
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("개체의 위치 : X(좌), Y(위)로부터 떨어진 거래를 뜻합니다.")> _
|
||||
Public Property 위치x() As Single
|
||||
Get
|
||||
Return Obj(Pos).Left
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
For Each C As C_label In Obj
|
||||
C.Left = value
|
||||
Next
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("개체의 위치 : X(좌), Y(위)로부터 떨어진 거래를 뜻합니다.")> _
|
||||
Public Property 위치y() As Single
|
||||
Get
|
||||
Return Obj(Pos).Top
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
For Each C As C_label In Obj
|
||||
C.Top = value
|
||||
Next
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
'<Category("개체조정"), Description("H를 패턴에서 별도처리합니다.")> _
|
||||
'Public Property 개별패턴H() As Boolean
|
||||
' Get
|
||||
' Return Obj(Pos).UseHPattern
|
||||
' End Get
|
||||
' Set(ByVal value As Boolean)
|
||||
' For Each C As C_label In Obj
|
||||
' C.UseHPattern = value
|
||||
' Next
|
||||
' DF.preview_window()
|
||||
' End Set
|
||||
'End Property
|
||||
<Category("개체조정"), Description("글자의 너비를 조절합니다.")> _
|
||||
Public Property 너비() As Single
|
||||
Get
|
||||
Return Obj(Pos).WordWidth
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
For Each C As C_label In Obj
|
||||
C.WordWidth = value
|
||||
Next
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("글자의 높이를 조절합니다.")> _
|
||||
Public Property 높이() As Single
|
||||
Get
|
||||
Return Obj(Pos).WordHeight
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
For Each C As C_label In Obj
|
||||
C.WordHeight = value
|
||||
Next
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("글자사이의 간격을 변경합니다. 1단위당 1칸의 공백이 추가됩니다.")> _
|
||||
Public Property 자간() As Short
|
||||
Get
|
||||
Return Obj(Pos).WordSpace
|
||||
End Get
|
||||
Set(ByVal value As Short)
|
||||
For Each C As C_label In Obj
|
||||
C.WordSpace = value
|
||||
Next
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("개체의 글꼴을 설정합니다.")> _
|
||||
Public Property 글꼴() As System.Drawing.Font
|
||||
Get
|
||||
Return Obj(Pos).Font
|
||||
End Get
|
||||
Set(ByVal value As System.Drawing.Font)
|
||||
For Each C As C_label In Obj
|
||||
C.Font = value
|
||||
Next
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("개체의 글꼴을 설정합니다.")> _
|
||||
Public Property 글꼴크기() As Single
|
||||
Get
|
||||
Return Obj(Pos).Font.Size
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
For Each C As C_label In Obj
|
||||
Dim NewFont As New System.Drawing.Font(C.Font.FontFamily, value)
|
||||
C.Font = NewFont
|
||||
Next
|
||||
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("개체의 문자를 변경합니다(고정문자식에만 적용됨)")> _
|
||||
Public Property 문자() As String
|
||||
Get
|
||||
Return Obj(Pos).Text
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
For Each C As C_label In Obj
|
||||
If C.Fixed Then
|
||||
C.Text = value
|
||||
'DF.preview_window()
|
||||
Else
|
||||
MsgBox("이 개체는 문자를 변경할 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
End If
|
||||
Next
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("반복출력"), Description("지정된개체를 반복해서 출력합니다")> _
|
||||
Public Property 반복횟수() As Short
|
||||
Get
|
||||
Return Obj(Pos).Repeat
|
||||
End Get
|
||||
Set(ByVal value As Short)
|
||||
|
||||
For Each C As C_label In Obj
|
||||
C.Repeat = value
|
||||
Next
|
||||
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
<Category("반복출력"), Description("지정된개체를 반복해서 출력합니다")> _
|
||||
Public Property 다음위치X() As Single
|
||||
Get
|
||||
Return Obj(Pos).RepeatX
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
For Each C As C_label In Obj
|
||||
C.RepeatX = value
|
||||
Next
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("반복출력"), Description("지정된개체를 반복해서 출력합니다")> _
|
||||
Public Property 다음위치Y() As Single
|
||||
Get
|
||||
Return Obj(Pos).RepeatY
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
For Each C As C_label In Obj
|
||||
C.RepeatY = value
|
||||
Next
|
||||
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
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분리출력횟수 As Short
|
||||
Dim v용지방향 As C_Epole.E_PaperOrient
|
||||
Dim v연속여백x, v연속여백y As Single
|
||||
Dim v연속옵션 As C_Epole.E_Dummytype
|
||||
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 v분리여백x, v분리여백y As Single
|
||||
Dim v그리기개체반복 As Boolean
|
||||
|
||||
Dim DF As Defalut_PrintForm
|
||||
Dim SF As Frm_Prnset
|
||||
|
||||
Public Sub New(ByRef pDF As Defalut_PrintForm, ByRef pSetfrm As Frm_Prnset)
|
||||
DF = pDF
|
||||
SF = pSetfrm
|
||||
End Sub
|
||||
|
||||
<Category("페이지속성"), Description("페이지의 출력방향을 선택하세요.")> _
|
||||
Public Property 용지방향() As C_Epole.E_PaperOrient
|
||||
Get
|
||||
Return v용지방향
|
||||
End Get
|
||||
Set(ByVal value As C_Epole.E_PaperOrient)
|
||||
v용지방향 = value
|
||||
DF.SaveReadLayOut_NEW(True)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("페이지속성"), Description("출력시 사용할 좌측,우측의 여백입니다.")> _
|
||||
Public Property 출력여백X() As Single
|
||||
Get
|
||||
Return v출력여백x
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v출력여백x = value
|
||||
End Set
|
||||
End Property
|
||||
<Category("페이지속성"), Description("출력시 사용할 좌측,우측의 여백입니다.")> _
|
||||
Public Property 출력여백Y() As Single
|
||||
Get
|
||||
Return v출력여백y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v출력여백y = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("페이지속성"), Description("출력시 출력물의 크기를 지정한 비율대로 조절합니다.")> _
|
||||
Public Property 가로확대비율() As Single
|
||||
Get
|
||||
Return Me.v가로확대
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v가로확대 = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("페이지속성"), Description("출력시 출력물의 크기를 지정한 비율대로 조절합니다.")> _
|
||||
Public Property 세로확대비율() As Single
|
||||
Get
|
||||
Return Me.v세로확대
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v세로확대 = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("연속출력"), Description("2장출력 기능의 사용여부를 결정합니다.")> _
|
||||
Public Property 출력장수() As Short
|
||||
Get
|
||||
Return v연속출력횟수
|
||||
End Get
|
||||
Set(ByVal value As Short)
|
||||
v연속출력횟수 = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("연속출력"), Description("2장출력 기능이 사용될때 추가로 설정가능합니다. 특정 갯수를 출력 후에 줄 바꿈등을 하려면 해당 갯수를 입력합니다.")> _
|
||||
Public Property 분리갯수() As Short
|
||||
Get
|
||||
Return v분리출력횟수
|
||||
End Get
|
||||
Set(ByVal value As Short)
|
||||
v분리출력횟수 = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("연속출력"), Description("2장출력시 2번째출력되는 데이터의 좌측,우측의 여백입니다.")> _
|
||||
Public Property 연속여백x() As Single
|
||||
Get
|
||||
Return v연속여백x
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v연속여백x = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("연속출력"), Description("2장출력시 2번째출력되는 데이터의 좌측,우측의 여백입니다.")> _
|
||||
Public Property 연속여백y() As Single
|
||||
Get
|
||||
Return v연속여백y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v연속여백y = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("연속출력"), Description("분리갯수가 입력되었다면 해당 분리갯수에따른 줄 분리가 작동할때 다음줄과 이전줄과의 X여백값입니다.")> _
|
||||
Public Property 분리여백x() As Single
|
||||
Get
|
||||
Return v분리여백x
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v분리여백x = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
<Category("연속출력"), Description("분리갯수가 입력되었다면 해당 분리갯수에따른 줄 분리가 작동할때 다음줄과 이전줄과의 Y여백값입니다.")> _
|
||||
Public Property 분리여백y() As Single
|
||||
Get
|
||||
Return v분리여백y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
v분리여백y = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("연속출력"), Description("그리기개체들도 반복 출력합니다.")> _
|
||||
Public Property 그리기개체반복() As Boolean
|
||||
Get
|
||||
Return v그리기개체반복
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
v그리기개체반복 = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("연속출력"), Description("2번째출력되는 데이터를 설정합니다. 현재복사는 같은데이터가 연속으로나오게 됩니다")> _
|
||||
Public Property 출력방법() As C_Epole.E_Dummytype
|
||||
Get
|
||||
Return v연속옵션
|
||||
End Get
|
||||
Set(ByVal value As C_Epole.E_Dummytype)
|
||||
v연속옵션 = value
|
||||
DF.preview_window()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class PropertyGrid_Box
|
||||
'//이것은 Shape_Box 의 상태설정
|
||||
Dim Obj As C_Epole.S_Box
|
||||
Dim SF As Frm_Prnset
|
||||
Dim Offset As Short
|
||||
|
||||
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
|
||||
SF = pSetfrm
|
||||
Obj = SF.Pform.Draw_Box.item(voffset)
|
||||
Me.Offset = voffset
|
||||
End Sub
|
||||
|
||||
<Category("개체조정"), Description("박스의 시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표X() As Single
|
||||
Get
|
||||
Return Obj.X
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.X = value
|
||||
SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("박스의 시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표Y() As Single
|
||||
Get
|
||||
Return Obj.Y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Y = value
|
||||
SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("박스의 가로길이를 입력하세요.")> _
|
||||
Public Property 가로길이() As Single
|
||||
Get
|
||||
Return Obj.Width
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Width = value
|
||||
SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
|
||||
Public Property 세로길이() As Single
|
||||
Get
|
||||
Return Obj.Height
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Height = value
|
||||
SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("박스의 색상을 선택하세요.")> _
|
||||
Public Property 색상() As Drawing.Color
|
||||
Get
|
||||
Return Obj.PenColor
|
||||
End Get
|
||||
Set(ByVal value As Drawing.Color)
|
||||
Obj.PenColor = value
|
||||
SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("박스의 두께를 입력하세요.")> _
|
||||
Public Property 선굵기() As Single
|
||||
Get
|
||||
Return Obj.PenWidth
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.PenWidth = value
|
||||
SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("박스의 휘어짐 수치를 입력하세요.")> _
|
||||
Public Property 휘어짐() As Single
|
||||
Get
|
||||
Try
|
||||
Return Obj.Radius
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Radius = value
|
||||
SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
|
||||
End Property
|
||||
End Class
|
||||
|
||||
Public Class PropertyGrid_Circle
|
||||
'//이것은 Shape_Box 의 상태설정
|
||||
Dim Obj As C_Epole.S_Circle
|
||||
Dim SF As Frm_Prnset
|
||||
Dim Offset As Short
|
||||
|
||||
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
|
||||
SF = pSetfrm
|
||||
Obj = SF.Pform.Draw_Circle.item(voffset)
|
||||
Me.Offset = voffset
|
||||
End Sub
|
||||
|
||||
<Category("개체조정"), Description("시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표X() As Single
|
||||
Get
|
||||
Return Obj.X
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.X = value
|
||||
SF.Pform.Draw_Circle.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표Y() As Single
|
||||
Get
|
||||
Return Obj.Y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Y = value
|
||||
SF.Pform.Draw_Circle.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("원의 너비를 입력하세요.")> _
|
||||
Public Property 너비() As Single
|
||||
Get
|
||||
Return Obj.Width
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Width = value
|
||||
SF.Pform.Draw_Circle.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("원의 높이를 입력하세요.")> _
|
||||
Public Property 높이() As Single
|
||||
Get
|
||||
Return Obj.Height
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Height = value
|
||||
SF.Pform.Draw_Circle.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("원의 색상을 선택하세요.")> _
|
||||
Public Property 색상() As Drawing.Color
|
||||
Get
|
||||
Return Obj.PenColor
|
||||
End Get
|
||||
Set(ByVal value As Drawing.Color)
|
||||
Obj.PenColor = value
|
||||
SF.Pform.Draw_Circle.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("원의 두께를 입력하세요.")> _
|
||||
Public Property 선굵기() As Single
|
||||
Get
|
||||
Return Obj.PenWidth
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.PenWidth = value
|
||||
SF.Pform.Draw_Circle.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
|
||||
End Property
|
||||
|
||||
'<Category("개체조정"), Description("박스의 휘어짐 수치를 입력하세요.")> _
|
||||
' Public Property 휘어짐() As Single
|
||||
' Get
|
||||
' Try
|
||||
' Return Obj.Radius
|
||||
' Catch ex As Exception
|
||||
' Return 0
|
||||
' End Try
|
||||
|
||||
' End Get
|
||||
' Set(ByVal value As Single)
|
||||
' Obj.Radius = value
|
||||
' SF.Pform.Draw_Box.item(Offset) = Obj
|
||||
' SF.Pform.preview_window()
|
||||
' SF.Refresh_Drawlist()
|
||||
' End Set
|
||||
|
||||
'End Property
|
||||
End Class
|
||||
|
||||
Public Class PropertyGrid_Line
|
||||
'//이것은 Shape_Box 의 상태설정
|
||||
Dim Obj As C_Epole.S_Line
|
||||
Dim SF As Frm_Prnset
|
||||
Dim offset As Short
|
||||
|
||||
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
|
||||
SF = pSetfrm
|
||||
Obj = SF.Pform.Draw_Line.Item(voffset)
|
||||
Me.offset = voffset
|
||||
End Sub
|
||||
|
||||
<Category("개체조정"), Description("선의 시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표X() As Single
|
||||
Get
|
||||
Return Obj.X
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.X = value
|
||||
SF.Pform.Draw_Line.Item(offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("선의 시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표Y() As Single
|
||||
Get
|
||||
Return Obj.Y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Y = value
|
||||
SF.Pform.Draw_Line.Item(offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("선의 종료좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 종료좌표X() As Single
|
||||
Get
|
||||
Return Obj.X2
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.X2 = value
|
||||
SF.Pform.Draw_Line.Item(offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("선의 종료좌표 : Y(우) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 종료좌표Y() As Single
|
||||
Get
|
||||
Return Obj.Y2
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Y2 = value
|
||||
SF.Pform.Draw_Line.Item(offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("선의 색상을 선택하세요.")> _
|
||||
Public Property 색상() As Drawing.Color
|
||||
Get
|
||||
Return Obj.PenColor
|
||||
End Get
|
||||
Set(ByVal value As Drawing.Color)
|
||||
Obj.PenColor = value
|
||||
SF.Pform.Draw_Line.Item(offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("선의 두께를 입력하세요.")> _
|
||||
Public Property 선굵기() As Single
|
||||
Get
|
||||
Return Obj.PenWidth
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.PenWidth = value
|
||||
SF.Pform.Draw_Line.Item(offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
Public Class PropertyGrid_Image
|
||||
'//이것은 Shape_Box 의 상태설정
|
||||
Dim Obj As C_Epole.S_Image
|
||||
Dim SF As Frm_Prnset
|
||||
Dim Offset As Short
|
||||
|
||||
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
|
||||
SF = pSetfrm
|
||||
Obj = SF.Pform.Draw_Image.item(voffset)
|
||||
Me.Offset = voffset
|
||||
End Sub
|
||||
|
||||
<Category("개체조정"), Description("시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표X() As Single
|
||||
Get
|
||||
Return Obj.X
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.X = value
|
||||
SF.Pform.Draw_Image.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표Y() As Single
|
||||
Get
|
||||
Return Obj.Y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Y = value
|
||||
SF.Pform.Draw_Image.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("박스의 가로길이를 입력하세요.")> _
|
||||
Public Property 가로길이() As Single
|
||||
Get
|
||||
Return Obj.Width
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Width = value
|
||||
SF.Pform.Draw_Image.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
|
||||
Public Property 세로길이() As Single
|
||||
Get
|
||||
Return Obj.Height
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Height = value
|
||||
SF.Pform.Draw_Image.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
|
||||
Public Property 파일명() As String
|
||||
Get
|
||||
Return Obj.FileName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
Obj.FileName = value
|
||||
SF.Pform.Draw_Image.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
Public Class PropertyGrid_QRcode
|
||||
'//이것은 Shape_Box 의 상태설정
|
||||
Dim Obj As C_Epole.S_QRCode
|
||||
Dim SF As Frm_Prnset
|
||||
Dim Offset As Short
|
||||
|
||||
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
|
||||
SF = pSetfrm
|
||||
Obj = SF.Pform.Draw_QRcode.item(voffset)
|
||||
Me.Offset = voffset
|
||||
End Sub
|
||||
|
||||
<Category("색상"), Description("데이터색상")>
|
||||
Public Property 전경색() As System.Drawing.Color
|
||||
Get
|
||||
Return Obj.fColor
|
||||
End Get
|
||||
Set(ByVal value As Drawing.Color)
|
||||
Obj.fColor = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("색상"), Description("데이터배경색상")>
|
||||
Public Property 배경색() As System.Drawing.Color
|
||||
Get
|
||||
Return Obj.bColor
|
||||
End Get
|
||||
Set(ByVal value As Drawing.Color)
|
||||
Obj.bColor = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표X() As Single
|
||||
Get
|
||||
Return Obj.X
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.X = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
|
||||
Public Property 시작좌표Y() As Single
|
||||
Get
|
||||
Return Obj.Y
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Y = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Category("개체조정"), Description("박스의 가로길이를 입력하세요.")> _
|
||||
Public Property 가로길이() As Single
|
||||
Get
|
||||
Return Obj.Width
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Width = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
|
||||
Public Property 세로길이() As Single
|
||||
Get
|
||||
Return Obj.Height
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Obj.Height = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("표시할 문자를 입력하세요."), Browsable(False)> _
|
||||
Public Property 출력문자() As String
|
||||
Get
|
||||
Return Obj.QRData
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
Obj.QRData = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("QR코드 인코딩 방법을 선택하세요.")> _
|
||||
Public Property 인코딩() As EQR_Incoding
|
||||
Get
|
||||
Return Obj.Encoding
|
||||
End Get
|
||||
Set(ByVal value As EQR_Incoding)
|
||||
Obj.Encoding = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("QR코드 버젼을 선택하세요.")> _
|
||||
Public Property 버젼() As EQR_Version
|
||||
Get
|
||||
Return Obj.Version
|
||||
End Get
|
||||
Set(ByVal value As EQR_Version)
|
||||
Obj.Version = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("QR코드 보정레벨을 선택하세요.")> _
|
||||
Public Property 보정레벨() As EQR_CLEVE
|
||||
Get
|
||||
Return Obj.CLeve
|
||||
End Get
|
||||
Set(ByVal value As EQR_CLEVE)
|
||||
Obj.CLeve = value
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("QR코드의 크기를 입력하세요")> _
|
||||
Public Property 크기() As Integer
|
||||
Get
|
||||
If (Obj.Size < 1) Then Obj.Size = 4
|
||||
Return Obj.Size
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
Obj.Size = value
|
||||
If Obj.Size < 1 Then Obj.Size = 4 '//기본4
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Category("개체조정"), Description("기본출력포맷을 입력하세요. 기본값('{DATA}')은 입력데이터 그대로의 출력을 의미합니다.")> _
|
||||
Public Property 출력포맷() As String
|
||||
Get
|
||||
If Obj.Format = "" Then
|
||||
Return "{DATA}"
|
||||
Else
|
||||
Return Obj.Format
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
Obj.Format = value
|
||||
If Obj.Size < 1 Then Obj.Size = 4 '//기본4
|
||||
SF.Pform.Draw_QRcode.item(Offset) = Obj
|
||||
SF.Pform.preview_window()
|
||||
SF.Refresh_Drawlist()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user