月別アーカイブ： 2009年10月

ちょっとした、でもとても重宝しているプログラムをご紹介します。

最初は、私が作ったものではなく、Balenaの「プログラミング Visual Basic.NET」に載っていたものです。

邦訳は2002年日経BPソフトプレスから出版され、付属のCDにソースが入っていました。そのままここに載せると著作権に抵触するかもしれません。Balenaのブログページ（http://www.dotnet2themax.com/blogs/fbalena/）から”Programming Microsoft Visual Basic .NET 2003″のChapter 18を開くと原書のサンプルページがありコードが載っています。

これは、TextBoxを継承したカスタムコントロールです。これによって、データ型や正規表現のチェックが可能です。
以下にこのプログラムの主要な部分を転載します。当然細かいところは分かりませんが、プログラムの雰囲気は分かると思います。

' 拡張されたTextBoxコントロール
Public Class TextBoxEx
    Inherits System.Windows.Forms.TextBox

    Event InvalidKey(ByVal sender As Object, ByVal e As EventArgs)

    Dim m_IsRequired As Boolean
    <Description("入力が必須である場合には、Trueにします。"), Category("検証")>_
    Property IsRequired() As Boolean
	......　省略
     End Property

    Dim m_ErrorMessage As String
    <Description("エラー時に表示されるメッセージです。"), Category("検証"。")>_
    Property ErrorMessage() As String
	...
    End Property

　　...　省略

    ' ValidateRegexプロパティ。
     <Description("正規表現を使用して、データを検証します。"), Category("検証")>_
    Property ValidateRegex() As String
        Get
            Return m_ValidateRegex
        End Get
        Set(ByVal Value As String)
            ' これが有効な正規表現であることを検査します。
            Try
                If Value <> "" Then
                    Dim dummy As Boolean = Regex.IsMatch("abcde", Value)
                End If
                m_ValidateRegex = Value
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Invalid Property", _
                        MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Set
    End Property

    Dim m_ValidateRegex As String

    ' エラーメッセージを表示するオプションのコントロール。
     Dim m_DisplayControl As Control

    <Description("エラーメッセージを表示するコントロールです。"), Category("検証")>_
    Property DisplayControl() As Control
	......　省略
    End Property

    ' コントロールに設定される値の型です。
    Enum ValidTypes
        Any = 0
        [Byte]
        [Short]
        [Integer]
                     ...　省略
        [DateTime]
    End Enum

    Dim m_ValidType As ValidTypes

    <Description("入力する値のデータ型です。"), Category("検証")>_
    Property ValidType() As ValidTypes
        ......
    End Property

    ' Validateメソッド
     <Description("現在の値が検証テストにパスすると、Trueを返します。">_
    Function Validate(Optional ByVal DisplayMessage As Boolean = True) As Boolean
        Validate = True

        If Me.IsRequired And Me.Text = "" Then
            Validate = False
        End If
        If Validate = True And Me.Text <> "" Then
            Validate = CheckValueType(Me.Text)
        End If
        If Validate = True And Me.ValidateRegex <> "" Then
            Validate = Regex.IsMatch(Me.Text, Me.ValidateRegex)
        End If

        If DisplayMessage And Not (DisplayControl Is Nothing) And Me.ErrorMessage <> "" Then
            If Validate Then
                DisplayControl.Text = ""
            Else
                DisplayControl.Text = Me.ErrorMessage
                DisplayControl.ForeColor = m_ErrroForeColor
            End If
        End If

        If Not Validate And Me.BeepOnError Then Beep()
    End Function

    Function CheckValueType(ByVal o As Object) As Boolean
        Dim res As Object
        Try
            Select Case m_ValidType
                Case ValidTypes.Byte : res = CByte(o)
                Case ValidTypes.Short : res = CShort(o)
                     ...　以下省略
            End Select
              Return True
        Catch
            Return False
        End Try
    End Function

    ' このメソッドは、コントロールがValidatingイベントを発生させるときに実行します。
    Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
        If Me.Validate() Then
            MyBase.OnValidating(e)
        Else
            e.Cancel = True
        End If
    End Sub
End Class

このプログラムで一番重要なところは、最後のOnValidatingです。このコントロールにデータを入力し、抜けようとするとこのメソッド(イベント)が起動し、データの整合性をチェックし、誤りがあれば指定のコントロールあるいはErrorProviderにメッセージを表示します。
(このプログラムではエラーメッセをLabel等のコントロールに表示するようになっていますが、私はこの部分をErrorProviderに変える等少し手を入れて使っています。)

このプログラムは、Dllとしてコンパイルしこれを参照設定することで、通常のコンポーネント（TextBox等）と同様に使うことができます。

私は、数字入力および正規表現チェックには必ずこのTextBoxExを使います。

ついでですが、私は郵便番号ではMaskedTextBoxを使いますが、電話番号、携帯電話、Emailの入力にはこのTextBoxExを使います。
郵便番号は、日本中で桁数が同じですが、電話番号では市外、市内局番等桁数が異なりますので、TextBoxExでの正規表現のチェックの方が柔軟性があるからです。
ちなみに、次のような正規表現を使っています（どこかから探してきて自分なりに修正したものです。正誤の保障はありません。Emailはそのまま）。

郵便番号　"^d{3}-d{4}$"
電話番号　"^(d{2,4}-){0,1}d{2,4}-d{4}$"
携帯番号　"^d{2,4}-d{2,4}-d{4}$"
Email　"^([w-.]+)@(([[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.)|(([w-]+.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(]?)$"