VB中使文本框只能输入数字的方法.docVIP

VB.net中使文本框只能输入数字的方法 编制计算类程序时文本框一般都用于输入数字数据，此时可以通过以下步骤来确保用户输入数据的正确性： 编制计算类程序时文本框一般都用于输入数字数据，此时可以通过以下步骤来确保用户输入数据的正确性： 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable，这样在该文本框中就不能使用中文输入法了。然后对文本框的KeyPress事件添加以下代码Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress???? If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then???????? e.Handled = False???? Else???????? e.Handled = True???? End IfEnd 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.KeyPress???? If Char.IsDigit(e.KeyChar) or e.KeyChar = Chr(8) or e.KeyChar = . Then???????? If e.KeyChar = . And InStr(TextBox1.Text, .) 0 Then???????????? e.Handled = True???????? Else???????????? e.Handled = False???????? End If???? Else???????? e.Handled = True???? End IfEnd Sub其中函数InStr返回指定字符在字符串中的位置，当字符串中不含此字符时，返回一个负数。这时文本框可以用来输入正整数及小数。 如果文本需要输入负数的话，就要能够输入负号-，而且只能是文本框输入的第一个字符，此时又可以将上面的函数改为下面的格式：Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress???? If Char.IsDigit(e.KeyChar) Or e.KeyChar = . Or e.KeyChar = Chr(8) Then???????? If e.KeyChar = . And InStr(TextBox1.Text, .) 0 Then???????????? e.Handled = True????????? Else????????????? e.Handled = False????????? End If????? ElseIf e.KeyChar = - And TextBox1.Text = Then????????? e.Handled = False????? Else????????? e.Handled = True????? End IfEnd 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对于要判断文本框内容的函数，就