如何在C# winform中使TEXTBOX只能输入数字,并支持Ctrl+V粘贴?

private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
{
if (e.KeyChar == '\r' || (e.KeyChar >= '0' && e.KeyChar <= '9') || e.KeyChar == 8 || e.KeyChar == 46 || e.KeyChar == 0x08)
{
e.Handled = false;
}
else
{
e.Handled = true;
MessageBox.Show("不能输入中文状态下的数字,解决方法:把输入法关了,重新输入数字。");
return;
}
}

上面的能限制只输入数字,但是不支持Ctrl+V粘贴,请问如何解决。

其实你用不着这么麻烦的。

同样是输入框,作用仅仅是采集数据而已。

 

MaskedTextBox 控件能非常方便地控制可输入的字符格式。

根据你上面的需求,用 MaskedTextBox控件代替TextBox控件。

1.设置Mask属性为999999999999 (代表只能输入数字,且位数为12。你有多少个9就代表能输入多少个数字,随便你设置)

 

2.设置 PromptChar 属性的值为空字符,即一个空格(注意:如果不设置默认为下划线,会影响美观)。也可以编码实现,如下:

 

// 设置占位符

this.maskedTextBox1.PromptChar = ' '; 

 

 

做完以上操作,你的需求就算满足了。

只能输入数字,且可以粘贴(只有数字才粘得进去,自动过滤)

 

 

 

图中红框中的控件就是 MaskedTextBox ,其余两个输入框是TextBox。从外观上看,没有任何区别。

追问

我只用TextBox这个。

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2017-12-15
keypress 不支持组合键,你的Ctrl+V是组合键。把代码放到keydown或keyup里面,并允许ctrl+v组合键通过。追问

那怎么修改,你帮我看看。

追答

以下代码可以实现你需要的功能,但如果粘贴板中的内容含有字母,那么粘贴时并不能拦截,只能拦截键盘输入的非数字。
private void textBox1_KeyDown(object sender, KeyEventArgs e)
{
if (!(Char.IsNumber((char)e.KeyValue)) && e.KeyValue != 13 && e.KeyValue != (char)8 && !(e.KeyCode==Keys.V && e.Control ))
{
e.SuppressKeyPress =true ;
}
}
---------------------------------------------------------------------------------------------------------------------------
C#没有可以直接读取剪贴板内容的函数或类,如果要读取,必须再继续编写很多代码,如果你感兴趣,可以查阅相关资料。

追问

try {
float aa = float.Parse(textBox1.Text);
textBox2.Focus();
}
catch
{
MessageBox.Show("旧编码不能是中文数字,请切换到英文状态下的数字或关闭输入法再输入。");
textBox1.Text = "";
textBox1.Focus();
}你那还是不行,我这样写就可以解决了。但是还是谢谢你。

追答

呵呵,解决就好。不过这个代码我试验过的,是可以的。你这种方法也很好,我原来也像你那样用。两者的目的一样,实现手段不一样,一个是输入的时候拦截,一个是输入完验证。

本回答被提问者和网友采纳
第2个回答  2013-03-17
很简单,因为你弄错了一个函数,你用val(text1.text)<10的本意可能是想检测小于10位的录入数字吧,但是用错了,因为你随便录入到第二个数字时就可能已经>10了,所以下面的语句不会生效了,TEXT1里也就没有数字显示,你要改用LEN来检测长度就行。正确的语句是:
Dim cleardisplay As Boolean

Private Sub Command1_Click(Index As Integer)
If cleardisplay Then
Text1.Text = ""
clesrdisplay = False
End If

If Len(Text1.Text) < 10 Then
Text1.Text = Text1.Text + Command1(Index).Caption
End If
End Sub
还不错,希望你采纳。
第3个回答  2013-03-16
用正则匹配,选择控件的匹配属性可以设置
相似回答