ValidationAttributeクラスの継承とコンストラクター
Inherits
Sub New
override は Overrides で
リスト5-79
Imports System
Imports System.ComponentModel.DataAnnotations
Imports System.Globalization
Public Class BlackwordAttribute
Inherits ValidationAttribute
Private _opts As String
Sub New(ByVal opt As String) 'コンストラクター
Me._opts = opt
Me.ErrorMessage = "{0}には{1}を含むことはできません。"
End Sub
Overrides Function FormatErrorMessage(ByVal name As String) As String
Return String.Format(CultureInfo.CurrentCulture, ErrorMessageString, name, Me._opts)
End Function
Overrides Function IsValid(value As Object) As Boolean
If IsNothing(value) Then Return True
Dim list As String() = Me._opts.Split(",")
For Each d In list
If DirectCast(value, String).Contains(d) Then
Return False
End If
Next
Return True
End Function
End Class