方法 : 数値、テキストボックスを作成します。

[アーティクル]
10/29/2009

[このドキュメントはプレビュー版であり、後のリリースで変更されることがあります。空白のトピックは、プレースホルダーとして挿入されています。]

数値のみ入力が受け付けられますように TextBox から派生したカスタムコントロールを作成できます。次の使用例 NumericTextBox クラスを定義し、フォームに配置する方法を示します。

この例は、キーが押されたときに、現在の文字をチェックします。数値テキストボックスを実装する別の方法をパターンマッチングを使用して入力文字列全体を確認します。詳細については、「IsMatch」を参照してください。

テキストボックス (TextBox) コントロールからクラスを派生させる

NumericTextBox クラスをプロジェクトに追加します。

                            Public
                            Class NumericTextBox
    Inherits TextBox
    Private SpaceOK AsBoolean = False
    ' Restricts the entry of characters to digits (including hex),    ' the negative sign, the e decimal point, and editing keystrokes (backspace).ProtectedOverridesSub OnKeyPress(ByVal e As KeyPressEventArgs)
        MyBase.OnKeyPress(e)

        Dim numberFormatInfo As NumberFormatInfo = System.Globalization.CultureInfo.CurrentCulture.NumberFormat
        Dim decimalSeparator AsString = numberFormatInfo.NumberDecimalSeparator
        Dim groupSeparator AsString = numberFormatInfo.NumberGroupSeparator
        Dim negativeSign AsString = numberFormatInfo.NegativeSign

        Dim keyInput AsString = e.KeyChar.ToString()

        If [Char].IsDigit(e.KeyChar) Then            ' Digits are OKElseIf keyInput.Equals(decimalSeparator) OrElse keyInput.Equals(groupSeparator) OrElse keyInput.Equals(negativeSign) Then            ' Decimal separator is OKElseIf e.KeyChar = vbBack Then            ' Backspace key is OK            '    else if ((ModifierKeys & (Keys.Control | Keys.Alt)) != 0)            '    {            '     // Let the edit control handle control and alt key combinations            '    }ElseIfMe.SpaceOK AndAlso e.KeyChar = " "c ThenElse            ' Consume this invalid key and beep.
            e.Handled = TrueEndIfEndSubPublicReadOnlyProperty IntValue() AsIntegerGetReturn Int32.Parse(Me.Text)
        EndGetEndPropertyPublicReadOnlyProperty DecimalValue() AsDecimalGetReturn [Decimal].Parse(Me.Text)
        EndGetEndPropertyPublicProperty AllowSpace() AsBooleanGetReturnMe.SpaceOK
        EndGetSet(ByVal value AsBoolean)
            Me.SpaceOK = value
        EndSetEndPropertyEndClass

                            public
                            class NumericTextBox : TextBox
{
    bool allowSpace = false;

    // Restricts the entry of characters to digits (including hex), the negative sign,// the decimal point, and editing keystrokes (backspace).protectedoverridevoid OnKeyPress(KeyPressEventArgs e)
    {
        base.OnKeyPress(e);

        NumberFormatInfo numberFormatInfo = System.Globalization.CultureInfo.CurrentCulture.NumberFormat;
        string decimalSeparator = numberFormatInfo.NumberDecimalSeparator;
        string groupSeparator = numberFormatInfo.NumberGroupSeparator;
        string negativeSign = numberFormatInfo.NegativeSign;

        string keyInput = e.KeyChar.ToString();

        if (Char.IsDigit(e.KeyChar))
        {
            // Digits are OK
        }
        elseif (keyInput.Equals(decimalSeparator) || keyInput.Equals(groupSeparator) ||
         keyInput.Equals(negativeSign))
        {
            // Decimal separator is OK
        }
        elseif (e.KeyChar == '\b')
        {
            // Backspace key is OK
        }
        //    else if ((ModifierKeys & (Keys.Control | Keys.Alt)) != 0)//    {//     // Let the edit control handle control and alt key combinations//    }elseif (this.allowSpace && e.KeyChar == ' ')
        {

        }
        else
        {
            // Consume this invalid key and beep
            e.Handled = true;
            //    MessageBeep();
        }
    }

    publicint IntValue
    {
        get
        {
            return Int32.Parse(this.Text);
        }
    }

    publicdecimal DecimalValue
    {
        get
        {
            return Decimal.Parse(this.Text);
        }
    }

    publicbool AllowSpace
    {
        set
        {
            this.allowSpace = value;
        }

        get
        {
            returnthis.allowSpace;
        }
    }
}

NumericTextBox コントロールをフォームに追加するには

次のコードは、フォームのコンストラクターまたは Load イベントを追加します。

                            ' Create an instance of NumericTextBox.
                            Dim NumericTextBox1 As NumericTextBox = New NumericTextBox()
NumericTextBox1.Parent = Me

' Draw the bounds of the NumericTextBox.
NumericTextBox1.Bounds = New Rectangle(5, 5, 150, 100)

                            // Create an instance of NumericTextBox.
NumericTextBox numericTextBox1 = new NumericTextBox();
numericTextBox1.Parent = this;

//Draw the bounds of the NumericTextBox.
numericTextBox1.Bounds = new Rectangle(5, 5, 150, 100);