在文本中框只能输入数字设定企业库|免费b2b网站

(本帖转载自http://bingning.net/free/SOURCE/control/numerictextbox.html）

下面介绍几种文本框（TextBox1）只能输入数字的方法。

注意:这里介绍的方法，并不是xx可以防止文本框只能输入数字。检测输入的是字符串还是数字，如果输入的是字符串时禁止输入，实现此设定就必须使用TextBox的Validating事件。

KeyPress事件的方法

下面的代码就是使用文本框的KeyPress事件来限制数字以外的输入

补充：「e.KeyChar < '0' || e.KeyChar > '9'」（VB.NET是「e.KeyChar < "0"c Or e.KeyChar > "9"c」）的条件，可以写成「!Char.IsDigit(e.KeyChar)」（VB.NET是「Not Char.IsDigit(e.KeyChar)」）。

补充：从.NET Framework 2.0版本开始，设置KeyDown事件处理器的KeyEventArgs.SuppressKeyPress属性为True时，键的输入变为无效了。设置KeyDown事件处理器的SuppressKeyPress属性为True时，就会触发KeyPress事件。

如果想增加可输入的字符时，在If文里增加相应的条件就可以了。下面的例子是增加Back Space键的方法。

 [VB.NET]
 
 Private Sub TextBox1_KeyPress(ByVal sender As Object, _
         ByVal e As System.Windows.Forms.KeyPressEventArgs) _
         Handles TextBox1.KeyPress
     If (e.KeyChar < "0"c Or e.KeyChar > "9"c) And e.KeyChar <> vbBack Then
         e.Handled = True
     End If
 End Sub

补充：如果想检测输入的字符是否被限制时，可以使用「Char.IsControl(e.KeyChar)」来检测。

如何防止IME的连接和从剪切板粘贴

向剪贴板复制数字以外的字符串。防止从剪贴板粘贴的方法有详细的说明。这里来介绍一下WM_PASTE信息无视的方法，下面的代码是无法粘贴剪贴板里数字以外字符的方法。

 [VB.NET]
 
 ''' <summary>
 ''' 设置TextBox数字以外输入不可
 ''' </summary>
 Public Class MyTextBox
     Inherits TextBox
     Private WM_PASTE As Integer = &H302
 
     Protected Overrides Sub WndProc(ByRef m As Message)
         If m.Msg = WM_PASTE Then
             Dim iData As IDataObject = Clipboard.GetDataObject()
             '检测剪贴板是否有字符串
             If iData.GetDataPresent(DataFormats.Text) Then
                 Dim clipStr As String = _
                     CStr(iData.GetData(DataFormats.Text))
                '检测剪贴板的字符串是文字还是数字
                 If Not System.Text.RegularExpressions.Regex.IsMatch( _
                     clipStr, "^\d+$") Then
                     Return
                 End If
             End If
         End If
         MyBase.WndProc(m)
     End Sub
 End Class

 [C#]
 
 //using System.Windows.Forms;
 //上一行的代码写到最上面

 /// <summary>
 ///设置TextBox数字以外输入不可
 /// </summary>
 public class MyTextBox : TextBox
 {
     const int WM_PASTE = 0x302;

     protected override void WndProc(ref Message m)
     {
         if (m.Msg == WM_PASTE)
         {
             IDataObject iData = Clipboard.GetDataObject();
             //检测剪贴板是否有字符串
             if (iData.GetDataPresent(DataFormats.Text))
             {
                 string clipStr = (string) iData.GetData(DataFormats.Text);
                 //检测剪贴板的字符串是文字还是数字
                 if (!System.Text.RegularExpressions.Regex.IsMatch(
                     clipStr,
                     @"^\d+$"))
                     return;
             }
         }
         base.WndProc(ref m);
     }
 }

NumericUpDown控件的使用方法

不使用文本框时，可以考虑使用NumericUpDown控件。但是，这种情况下当IME有效的时候文字也能输入，复制和粘贴也可以使用。当数字以外的文字被输入的时候，在Value属性取得值的时候，返回之前输入的数字，并且那个数字也被NumericUpDown所表示。

CreateParams的重载方法

下面再介绍一种方法。给CreateParams.Style追加ES_NUMBER。但是这种方法也可以使用复制和粘贴的方法输入。

 [VB.NET]
 
 ''' <summary>
 ''' 只能输入数字的TextBox
 ''' </summary>
 Public Class NumericTextBox
     Inherits TextBox
     Private ES_NUMBER As Integer = &H2000

     Protected Overrides ReadOnly Property CreateParams() As CreateParams
         Get
             Dim parms As CreateParams = MyBase.CreateParams
             parms.Style = parms.Style Or ES_NUMBER
             Return parms
         End Get
     End Property
 End Class

 [C#]
 
 //using System.Windows.Forms;
 //上面一行代码写在所有代码的最上面

 /// <summary>
 /// 只能输入数字的TextBox
 /// </summary>
 public class NumericTextBox : TextBox
 {
     const int ES_NUMBER = 0x2000;

     protected override CreateParams CreateParams
     {
         get
         {
             CreateParams parms = base.CreateParams;
             parms.Style |= ES_NUMBER;
             return parms;
         }
     }
 }