vb.net限制文本框只能输入数字

编制计算类程序时文本框一般都用于输入数字数据，此时可以通过以下步骤来确保用户输入数据的正确性：

首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable，这样在该文本框中就不能使用中文输入法了。然后对文本框的KeyPress事件添加以下代码

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPressIf Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Thene.Handled = FalseElsee.Handled = TrueEnd If
End Sub

其中e.KeyChar是键盘输入的键对应的字符，IsDigit函数可以判断是否为0到9的数字，Chr(8)为退格键，当e.Handled为True时，程序认为该KeyPress事件已经被处理过了，文本框的内容也就不会发生变化了。从以上程序中不难看出，此时文本框只能接受数字和退格键，也就是说这个文本框是用来输入整数的。

如果文本需要输入小数的话，就要能够输入小数点"."，而且小数点只能输入一次，此时可以将上面的函数改为下面的格式：

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPressIf Char.IsDigit(e.KeyChar) or e.KeyChar = Chr(8) or e.KeyChar = "." ThenIf e.KeyChar = "." And InStr(TextBox1.Text, ".") > 0 Thene.Handled = TrueElsee.Handled = FalseEnd IfElsee.Handled = TrueEnd If
End Sub

其中函数InStr返回指定字符在字符串中的位置，当字符串中不含此字符时，返回一个负数。这时文本框可以用来输入正整数及小数。

如果文本需要输入负数的话，就要能够输入负号"-"，而且只能是文本框输入的第一个字符，此时又可以将上面的函数改为下面的格式：


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPressIf Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) ThenIf e.KeyChar = "." And InStr(TextBox1.Text, ".") > 0 Thene.Handled = TrueElsee.Handled = FalseEnd IfElseIf e.KeyChar = "-" And TextBox1.Text = "" Thene.Handled = FalseElsee.Handled = TrueEnd If
End Sub

这时文本框可以用来输入正的或负的整数及小数。

当有多个文本框需要做输入限制时，可以在以上代码Handles后面加上多个文本框的KeyPress事件，各事件之间用逗号隔开，例如
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress,Textbox2.KeyPress,Textbox3.KeyPress
对于要判断文本框内容的函数，就要把代码进行修改，使其能够同时处理多个文本框，也就是把上面后两段程序中的TextBox1.Text改为CType(sender, TextBox).Text，这样一来就能够对号入座了，比如上面能够输入负号的代码就可以改成：

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress,Textbox2.KeyPress,Textbox3.KeyPressIf Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) ThenIf e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Thene.Handled = TrueElsee.Handled = FalseEnd IfElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Thene.Handled = FalseElsee.Handled = TrueEnd If
End Sub

vb.net限制文本框只能输入数字相关推荐

VB.NET使文本框只能输入数字
编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性: 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就不能使 ...
正则表达式限制文本框只能输入数字,小数点,英文字母,汉字
1.文本框只能输入数字代码(小数点也不能输入) <input οnkeyup="this.value=this.value.replace(/\D/g,'')" onafte ...
js 只准输入数字_js验证如何限制文本框只能输入数字
展开全部 js限制文本框只能输入数字方法,有时需要限制文本框输入内容的类型,正则e68a8462616964757a686964616f31333366306462表达式限制文本框只能输入数字.小数点 ...
php验证数字100倍数,js如何实现一个文本框只能输入数字且是100的倍数
js如何实现一个文本框只能输入数字且是100的倍数? php var a = 123,b = 200; /\d/.test(a) && a % 100 == 0;//false /\ ...
转如何限制文本框只能输入数字,小数点,英文,汉字等各类代码
1.文本框只能输入数字代码(小数点也不能输入) <input onkeyup="this.value=this.value.replace(/D/g,'')" onafter ...
文本框只能输入数字代码
1.文本框只能输入数字代码(小数点也不能输入) <input οnkeyup="=.replace(/\D/g,'')" onafterpaste="=.repla ...
正则表达式限制文本框只能输入数字
许多时候我们在制作表单时需要限制文本框输入内容的类型,下面我们用正则表达式限制文本框只能输入数字.小数点.英文字母.汉字等各类代码. 1.文本框只能输入数字代码(小数点也不能输入) <i ...
js正则表达式限制文本框只能输入数字,小数点,英文字母
1.文本框只能输入数字代码(小数点也不能输入) <input οnkeyup="this.value=this.value.replace(/\D/g,'')" onafte ...
php文本框限制只输入数字,js限制文本框只能输入数字方法小结_javascript技巧
有时需要限制文本框输入内容的类型,本节分享下正则表达式限制文本框只能输入数字.小数点.英文字母.汉字等代码. 例如,输入大于0的正整数 1,文本框只能输入数字代码(小数点也不能输入) 2,只能输入数字 ...

vb.net限制文本框只能输入数字

vb.net限制文本框只能输入数字相关推荐

最新文章

热门文章