基本的に、小数のエントリのみを必要とするテキスト ボックスがありますが、このテキスト ボックス内の小数のみを許可する検証ルールがあります。
ここに私が持っているコードがありますが、それは私が望むことをしません:
#Region " RULE: Decimal Value Required Rule "
Public Class DecimalRequiredRule
Inherits Rules.BusinessRule
Public Sub New(ByVal primaryProperty As Core.IPropertyInfo)
InputProperties = New List(Of IPropertyInfo)({primaryProperty})
Me.PrimaryProperty = primaryProperty
End Sub
Protected Overrides Sub Execute(ByVal context As Csla.Rules.RuleContext)
Try
Dim isDecimal As Decimal = CDec(context.InputPropertyValues(PrimaryProperty))
Catch ex As Exception
context.AddErrorResult(PrimaryProperty.FriendlyName & " must be a decimal")
End Try
End Sub
End Class
#End Region