Chapter05_list5-74

配列の宣言と初期化

リスト5-74

    <DisplayName("自己紹介")>

    <StringLength(100, ErrorMessage:="{0}は{1}文字以内で入力してください。")>

    <CustomValidation(GetType(Member), "CheckBlackword")>

    Public Property Memo As String

    Shared Function CheckBlackword(ByVal _memo As String) As ValidationResult

        Dim list() As String = New String() {"違法", "麻薬", "毒"}      

        'Dim list() As String = {"違法", "麻薬", "毒"}でも可

        For Each d In list

            If _memo.Contains(d) Then

                Return New ValidationResult("NGワードが含まれています。")

            End If

        Next

        Return ValidationResult.Success

    End Function

参考

//配列の宣言と初期化

http://www.atmarkit.co.jp/fdotnet/dotnettips/275vbarray/vbarray.html