vba class sample

Option Explicit

Private domain As String

Public Property Get ドメイン名() As String
    ドメイン名 = domain
End Property

Public Property Let ドメイン名(value As String)
    domain = value
End Property

Private propt As String

Public Property Get 属性() As String
    属性 = propt
End Property

Public Property Let 属性(value As String)
    propt = value
End Property

Private kNum As String

Public Property Get 桁数() As String
    桁数 = kNum
End Property

Public Property Let 桁数(value As String)
    kNum = value
End Property

Private wordNum As String

Public Property Get 文字数() As String
    文字数 = wordNum
End Property

Public Property Let 文字数(value As String)
    wordNum = value
End Property

Private dataLen As String

Public Property Get データ長() As String
    データ長 = dataLen
End Property

Public Property Let データ長(value As String)
    dataLen = value
End Property

Private rangeMin As String

Public Property Get 範囲の最小値() As String
    範囲の最小値 = rangeMin
End Property

Public Property Let 範囲の最小値(value As String)
    rangeMin = value
End Property

Private rangeMax As String

Public Property Get 範囲の最大値() As String
    範囲の最大値 = rangeMax
End Property

Public Property Let 範囲の最大値(value As String)
    rangeMax = value
End Property

Private strFormat As String

Public Property Get フォーマットのコード値() As String
    フォーマットのコード値 = strFormat
End Property

Public Property Let フォーマットのコード値(value As String)
    strFormat = value
End Property

Private dbType As String

Public Property Get 物理データの型() As String
    物理データの型 = dbType
End Property

Public Property Let 物理データの型(value As String)
    dbType = value
End Property

Private dbByteNum As String

Public Property Get 物理データのバイト数() As String
    物理データのバイト数 = dbByteNum
End Property

Public Property Let 物理データのバイト数(value As String)
    dbByteNum = value
End Property

Private dbPrecition As String

Public Property Get 物理データの精度() As String
    物理データの精度 = dbPrecition
End Property

Public Property Let 物理データの精度(value As String)
    dbPrecition = value
End Property

Private codeType As String

Public Property Get コード種別() As String
    コード種別 = codeType
End Property

Public Property Let コード種別(value As String)
    codeType = value
End Property

Private align As String

Public Property Get 文字寄せ() As String
    文字寄せ = align
End Property

Public Property Let 文字寄せ(value As String)
    align = value
End Property

Private other As String

Public Property Get その他の補足() As String
    その他の補足 = other
End Property

Public Property Let その他の補足(value As String)
    other = value
End Property