# Re: 急件..请问两个问题

Posted by Mouse on March 16, 1999 at 23:42:28:

In Reply to: 急件..请问两个问题 posted by sdy on March 16, 1999 at 16:11:55:

: 请问怎么判断text中的值.(只想使用者输入数值)
: 如果出现英文字或中文字..则会出警告讯息.并将text里清成空白
: 另外..
: 如果两个text中都有数值了
: 要让一个command.enabled=true,该怎么判断.要写在那边呢?
: (还没有值之前.command.enabled=false)
: 请各位高手帮我解答..谢谢~~

第一个问题可以用isnumeric()来测试是否为数字
private sub Text_keypress(keyascii as integer)
if keyascii=vbkeyreturn then
if isnumeric(text.text) then '为数字
SendKeys "{tab}"
else
msgbox "不是数字"
text.text=""
end if
end if
end sub

第二个问题
private sub text1_chang()
if isnumeric(text1.text) and isnumeric(text2.text) then
command1.enabled=true
else
command1.enabled=false
end if
end sub
private sub text2_chang()
if isnumeric(text1.text) and isnumeric(text2.text) then
command1.enabled=true
else
command1.enabled=false
end if
end sub

Follow Ups: