VB.net中使文本框只能输入数字
vb.net中使文本框只能输入数字
首先添加好文本框控件textbox后把属性imemode的值改成disable，这样在该文本框中就不能使用中文输入法了。然后对文本框的keypress事件添加以下代码
<blockquote>
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 if
end sub
</blockquote>如果文本需要输入小数的话，就要能够输入小数点"."，而且小数点只能输入一次，此时可以将上面的函数改为下面的格式：
<blockquote>
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 if
end sub
</blockquote>如果文本需要输入负数的话，就要能够输入负号"-"，而且只能是文本框输入的第一个字符，此时又可以将上面的函数改为下面的格式：
<blockquote>
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 if
end sub
</blockquote>
这时文本框可以用来输入正的或负的整数及小数。
当有多个文本框需要做输入限制时，可以在以上代码handles后面加上多个文本框的keypress事件，各事件之间用逗号隔开，例如
<blockquote> private sub textbox1_keypress(byval sender as object, byval e as system.windows.forms.keypresseventargs) handles textbox1.keypress,textbox2.keypress,textbox3.keypress </blockquote>对于要判断文本框内容的函数，就要把代码进行修改，使其能够同时处理多个文本框，也就是把上面后两段程序中的textbox1.text改为ctype(sender, textbox).text，这样一来就能够对号入座了，比如上面能够输入负号的代码就可以改成：
<blockquote>
private sub textbox1_keypress(byval sender as object, byval e as system.windows.forms.keypresseventargs) handles textbox1.keypress,textbox2.keypress,textbox3.keypress
if char.isdigit(e.keychar) or e.keychar = "." or e.keychar = chr(8) then
if e.keychar = "." and instr(ctype(sender, textbox).text, ".") >0 then
e.handled = true
else
e.handled = false
end if
elseif e.keychar = "-" and ctype(sender, textbox).text = "" then
e.handled = false
else
e.handled = true
end if
</blockquote>
end sub
您可能感兴趣的文章：
VB.net中使文本框只能输入数字
asp.net c#与vb.net 只能输入英文和数字函数
Js 正则限制只能输入数字或中文的代码
VB.NET中让Textbox只能输入数字
Autodesk官方最新的.NET教程（二）(VB.NET版）
js 限制文本框输入内容(大写字符、数字、小写字符)
Jquery控制只能输入数字(解析)
js使用控件对windows的操作实现原理与应用
js限制输入框只能输入数字
jquery限定文本框只能输入数字即整数和小数