以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数值有效性问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69189)
--  作者：pcxjxjhkw
--  发布时间：2015/6/1 10:59:00
--  [求助]数值有效性问题
窗口中有一数值组合框控件，当输入或单击上下微调，其值不为数值或小于0则值不再变化。
如：数值框的值为0，单击下微调要变成-1，用代码判断小于0，则其值仍为0

谢谢
--  作者：大红袍
--  发布时间：2015/6/1 11:04:00
--  
 你去编写TextChanged代码比较一下就行啊。
--  作者：Bin
--  发布时间：2015/6/1 11:04:00
--  
TextChanged 事件

if CDbl(e.sender.text)<0 then
   e.sender.text=0
end if
--  作者：pcxjxjhkw
--  发布时间：2015/6/1 11:07:00
--  
还有一种情况，如原值为x,大于0，当输入一个值小于0，则仍为原值。

那又如何写代码？

谢谢
--  作者：Bin
--  发布时间：2015/6/1 11:09:00
--  
增加一个Var变量.储存每次Textchanged的值

if CDbl(e.sender.text)<0 then
   e.sender.text=vars("ov")
end if
vars("ov")=e.sender.text