JournalSixSource/Card.vb at master · bikibird/JournalSixSource · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Public Class Card
    Inherits Printing.PrintDocument
    Private propMotif As String
    Private propMotifName As String
    Private propMotifWidth As Integer
    Private propMotifHeight As Integer
    Private propKnitTechnique As Boolean
    Private propContinuation As Boolean
    Private propFirstCard As Boolean
    Private propLastcard As Boolean
    Private propLastRow As Boolean

    Public Property Motif() As String
        Get
            Return propMotif
        End Get
        Set(ByVal value As String)
            propMotif = value
        End Set
    End Property
    Public Property MotifName() As String
        Get
            Return propMotifName
        End Get
        Set(ByVal value As String)
            propMotifName = value
        End Set
    End Property
    Public Property MotifWidth() As Integer
        Get
            Return propMotifWidth
        End Get
        Set(ByVal value As Integer)
            propMotifWidth = value
        End Set
    End Property
    Public Property MotifHeight() As Integer
        Get
            Return propMotifHeight
        End Get
        Set(ByVal value As Integer)
            propMotifHeight = value
        End Set
    End Property
    Public Property KnitTechnique() As Boolean
        Get
            Return propKnitTechnique
        End Get
        Set(ByVal value As Boolean)
            propKnitTechnique = value
        End Set
    End Property
    Public Property Continuation() As Boolean
        Get
            Return propContinuation
        End Get
        Set(ByVal value As Boolean)
            propContinuation = value
        End Set
    End Property
    Public Property FirstCard() As Boolean
        Get
            Return propFirstCard
        End Get
        Set(ByVal value As Boolean)
            propFirstCard = value
        End Set
    End Property
    Public Property LastCard() As Boolean
        Get
            Return propLastCard
        End Get
        Set(ByVal value As Boolean)
            propLastCard = value
        End Set
    End Property
    Public Property LastRow() As Boolean
        Get
            Return propLastRow
        End Get
        Set(ByVal value As Boolean)
            propLastRow = value
        End Set
    End Property


End Class