以前お仕事で必要になった際に調べて作ったもの。
テキストボックスに、DBのキー項目となるコードを入力する際、記号などが入力出来てしまうのを弾きたかった。
以下、VB.Netの新しいコード用テキストボックスクラス。

VB.Net

Imports System.Text.RegularExpressions

Public Class CommonClass

    ''' <summary>
    ''' 正規表現フォーマット
    ''' </summary>
    Public Enum RegexFormat

        LimitLess = 0
        Num
        AlphaUp
        AlphaLow
        NumAlphaLowUp

    End Enum

    ''' <summary>
    ''' コード用テキストボックス
    ''' </summary>
    Public Class CodeTextBox
        Inherits TextBox

        ''' <summary>
        ''' 入力フォーマット
        ''' </summary>
        Private _Format As RegexFormat = RegexFormat.LimitLess

        ''' <summary>
        ''' （保持用）テキスト開始位置
        ''' </summary>
        Private selectionStartCustom As Integer = 0

        ''' <summary>
        ''' 入力フォーマット
        ''' </summary>
        Public Property Format() As RegexFormat
            Get
                Return _Format
            End Get
            Set(ByVal value As RegexFormat)
                _Format = value
            End Set
        End Property

        ''' <summary>
        ''' 正規表現フォーマット文字列取得処理
        ''' </summary>
        ''' <param name="regexFormat">正規表現フォーマット</param>
        ''' <param name="notTarget">true:指定した対象以外を正規表現で取得する</param>
        ''' <returns>正規表現フォーマット文字列</returns>
        Private Function GetRegexFormat(ByVal regexFormat As RegexFormat, ByVal notTarget As Boolean) As String

            Dim notFormatWord As String = String.Empty

            GetRegexFormat = String.Empty

            If notTarget Then

                notFormatWord = "^"

            End If

            Select Case (regexFormat)
                Case regexFormat.Num
                    GetRegexFormat = "[" + notFormatWord + "0-9]"
                    Exit Select
                Case regexFormat.AlphaUp
                    GetRegexFormat = "[" + notFormatWord + "A-Z]"
                    Exit Select
                Case regexFormat.AlphaLow
                    GetRegexFormat = "[" + notFormatWord + "a-z]"
                    Exit Select
                Case regexFormat.NumAlphaLowUp
                    GetRegexFormat = "[" + notFormatWord + "0-9a-zA-Z]"
                    Exit Select
            End Select

        End Function

        ''' <summary>
        ''' IMEモード（半角のみ入力）
        ''' </summary>
        Protected Overloads Property ImeMode() As ImeMode
            Get
                Return ImeMode.Disable
            End Get
            Set(ByVal value As ImeMode)

            End Set
        End Property

        Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
            ' テキスト開始位置をこの時点で取得
            selectionStartCustom = Me.SelectionStart
            MyBase.OnKeyPress(e)
        End Sub

        Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)

            If Not _Format.Equals(RegexFormat.LimitLess) Then

                Dim reg As Regex = New Regex(GetRegexFormat(_Format, True))
                Dim result As String = reg.Replace(Me.Text, String.Empty)

                If Not result.Equals(Me.Text) Then

                    Me.Text = result
                    Me.SelectionStart = selectionStartCustom

                End If

            End If

            MyBase.OnTextChanged(e)
        End Sub

    End Class

End Class

また、C#版も記述しておく。

C#

    class CommonClass
    {
        /// <summary>
        /// 正規表現フォーマット
        /// </summary>
        public enum RegexFormat
        {
            LimitLess = 0,
            Num,
            AlphaUp,
            AlphaLow,
            NumAlphaLowUp
        }

        /// <summary>
        /// 正規表現フォーマット文字列取得処理
        /// </summary>
        /// <param name="regexFormat">正規表現フォーマット</param>
        /// <param name="notTarget">true:指定した対象以外を正規表現で取得する</param>
        /// <returns>正規表現フォーマット文字列</returns>
        private static string GetRegexFormat(RegexFormat regexFormat, bool notTarget)
        {
            string format = string.Empty;
            string notFormatWord = string.Empty;

            if (notTarget)
            {
                notFormatWord = "^";
            }

            switch (regexFormat)
            {
                case RegexFormat.Num:
                    format = "[" + notFormatWord + "0-9]";
                    break;
                case RegexFormat.AlphaUp:
                    format = "[" + notFormatWord + "A-Z]";
                    break;
                case RegexFormat.AlphaLow:
                    format = "[" + notFormatWord + "a-z]";
                    break;
                case RegexFormat.NumAlphaLowUp:
                    format = "[" + notFormatWord + "0-9a-zA-Z]";
                    break;
            }

            return format;
        }

        /// <summary>
        /// コード用テキストボックス
        /// </summary>
        public class CodeTextBox : TextBox
        {
            /// <summary>
            /// フォーマット（正規表現の選択）
            /// </summary>
            [AmbientValue(RegexFormat.LimitLess)]
            [Localizable(true)]
            public RegexFormat Format { get; set; }

            /// <summary>
            /// （保持用）テキスト開始位置
            /// </summary>
            private int selectionStart = 0;

            //[AmbientValue(ImeMode.Disable)]
            //// プロパティウィンドウ非表示
            //[Browsable(false)]
            //// インテリセンス非表示
            //[EditorBrowsable(EditorBrowsableState.Never)]
            //public new ImeMode ImeMode { get { return base.ImeMode; } set { base.ImeMode = ImeMode.Disable; } }

            protected override void OnKeyPress(KeyPressEventArgs e)
            {
                // テキスト開始位置をこの時点で取得
                selectionStart = base.SelectionStart;
                base.OnKeyPress(e);
            }

            protected override void OnTextChanged(EventArgs e)
            {
                if (!Format.Equals(RegexFormat.LimitLess))
                {
                    Regex reg = new Regex(GetRegexFormat(Format, true));
                    string result = reg.Replace(this.Text, string.Empty);

                    if (!result.Equals(this.Text))
                    {
                        base.Text = result;
                        base.SelectionStart = selectionStart;
                    }
                }
                base.OnTextChanged(e);
            }
        }
    }

・今後の課題
　①ImeModeプロパティは制御不可にしたい。
　②処理中の描画がされるため、入力不可の文字を入力した瞬間のみ描画されることがあるので、この間は描画したくない。