IDC资讯中心
文本框防止非法字符输入：
只输入整数：
private sub text1_keypress(keyascii as integer)
select case keyascii
case asc("0") to asc("9"), vbkeyback
nop
case else
keyascii = 0
end select
end sub
只输入小数:
private sub text1_keypress(keyascii as integer)
select case keyascii
case asc("0") to asc("9"), vbkeyback
nop
case asc(".")允许一个小数点
if instr(1, text1.text, ".") > 0 then keyascii = 0
case else
keyascii = 0
end select
end sub
