WinForm TextBox 只能输入数字

       在Winform(C#)中要实现限制Textbox只能输入数字，一般的做法就是在按键事件中处理，判断keychar的值。限制只能输入数字，小数点，Backspace，del这几个键。数字0~9所对应的keychar为48~57，小数点是46，Backspace是8。    
      拖一个Textbox到窗体上，添加OnKeyPress事件，在事件写判断的代码，只要判断不是这些键，设置e.Handled的值为true，就可以屏蔽输入。
1.判断是否为数字或Backspace，按下面这样写的话只能输入数字和Backspace，所以还得给代码添加些条件，还要能够输入小数点。
2.输入小数点。输入的小数要符合数字的格式，类似9.9.9这样的是不能够输入的。做法就是用float.TryParse来转换Textbox中之前和之后的值，然后比较两者的转换结果。

1.C#代码

在Winform

private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
        {
            //数字0~9所对应的keychar为48~57，小数点是46，Backspace是8
            e.Handled = true;
            //输入0-9和Backspace del 有效
            if ((e.KeyChar >= 47 && e.KeyChar <= 58) || e.KeyChar == 8)
            {
                e.Handled = false;
            }
            if (e.KeyChar == 46)                       //小数点      
            {
                if (textBox1.Text.Length <= 0)
                    e.Handled = true;           //小数点不能在第一位      
                else
                {
                    float f;
                    if (float.TryParse(textBox1.Text + e.KeyChar.ToString(), out f))
                    {
                        e.Handled = false;
                    }
                }
            }
        }

2.VB.net 代码

 Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        e.Handled = True
        '输入0－9和回连键时有效
        If (e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = "" Then
            e.Handled = False
        End If
        '输入小数点情况
        If e.KeyChar = "." Then
            '小数点不能在第一位
            If TextBox1.Text.Length <= 0 Then
                e.Handled = True
            Else
                '小数点不在第一位
                Dim f As Double
                If Double.TryParse(TextBox1.Text + e.KeyChar, f) Then
                    e.Handled = False
                End If
            End If
        End If
    End Sub