一边倒桃树栽培技术:我的程序有一段不会遍了,麻烦问以下

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/03 19:28:55
怎么设置,在VB的TextBox中,只能输入8或11位的整数?谢谢,
QQ:378441162
E-mail:yzqcq@sina.com

private sub check_input()
dim action1 as bloon
dim action2 as bloon
dim rezult as bloon
'先判断长度是不是符合8位或10位
if len(text1.text)=8 or len(text1.text)=10 then
action1=true
end if
'再判断是输入的是不是数字
action2=Isnumeric(text1.text)
'以下是结论
if action1=true and action2=true then
rezult=true
else
rezult=false
end if
end sub

这个程序没判断小数点的情况。网上相关例程太多,我不写了。

为textbox的keydown事件编写代码