用VBS <script language="vbs"> sub verify_numeric(o_score_name) if not (o_score_name.value="" or isnumeric(o_score_name.value))then o_score_name.value="" o_score_name.select o_score_name.focus end if end sub </script>在TextBox里添加属性onblur="verify_numeric(me)"
keyCode控制数字才能输入
<script language="vbs">
sub verify_numeric(o_score_name)
if not (o_score_name.value="" or isnumeric(o_score_name.value))then
o_score_name.value=""
o_score_name.select
o_score_name.focus
end if
end sub
</script>在TextBox里添加属性onblur="verify_numeric(me)"
http://dev.csdn.net/develop/article/50/50108.shtm