只輸入整數(shù): 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
只輸入小數(shù):
private sub text1_keypress(keyascii as integer) select case keyascii case asc("0") to asc("9"), vbkeyback 'nop
case asc(".")'允許一個小數(shù)點 if instr(1, text1.text, ".") > 0 then keyascii = 0