0

誰かが私のためにこれを変更できますか？

Private Sub NumericKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(Keys.Back) Then
        Else
            If Not Char.IsDigit(e.KeyChar) Then
                e.Handled = True
                Beep()
            Else
                If Len(TextBox1.Text) > 0 Then
                    If Val(TextBox1.Text) > 105097565 Then
                        e.Handled = True
                        Beep()
                    End If
              End If
                    End If
         End If
    End Sub

または、その方法を教えてください：1.NumericKeyPressイベント？2.e.KeyCharの言い方は？3.IsDigitの言い方は？4.Chr（ASCII番号）の言い方は？5.e.Keyの扱い方は？6.ビープ音を鳴らす方法は？

私は試した：

private: System::Void textBox1_KeyPress( Object^ sender, System::Windows::Forms::KeyPressEventArgs^ e )
                {
                    if(e->KeyChar == (Char)8)
                    {}
                    else 
                    {
                    if (!Char::IsDigit(e->KeyChar))
                    {
                    e->Handled = true;
                    }
                    else
                    {
                    if (textBox1->Text->Length > 0)
                    {
                    if (int::Parse(textBox1->Text) > 105097565)
                    {
                    e->Handled = true;
                    }
                    }
                    }
                    }
                 }

しかし、それは機能しませんでした。

4

1 に答える 1

0

追加した

this->textBox1->KeyPress += gcnew System::Windows::Forms::KeyPressEventHandler(this, &MyForm::textBox_KeyPress);

に

#pragma region Windows Form Designer generated code
        void InitializeComponent(void)
于 2013-03-01T22:07:42.717 に答える