maxlengthargs.vb

来自「C# 版本的一个三层商业架构」· VB 代码 · 共 23 行

Imports CSLA.BrokenRules

Public Class MaxLengthArgs
  Inherits RuleArgs

  Private mMax As Integer

  Public ReadOnly Property MaxLength() As Integer
    Get
      Return mMax
    End Get
  End Property

  Public Sub New(ByVal maxLength As Integer)
    mMax = maxLength
  End Sub

  Public Sub New(ByVal propertyName As String, ByVal maxLength As Integer)
    MyBase.New(propertyName)
    mMax = maxLength
  End Sub
End Class