在DCL对话框中输入数字的限制

fyl891 · 发表于 2016-1-11 22:46:57

在DCL设计中，假设有一个edit_box控件，我如何设置这个edit_box控件的value值只能输入正整数呢？

fyl891 · 发表于 2016-1-11 22:48:25

就像。我附图中的，角筋数量这个输入框中怎么限制他只能输入正整数呢？

邹锋 · 发表于 2016-1-11 23:13:26

把它取值出来，判断是否整数然后ALERT跳出来提示

fyl891 · 发表于 2016-1-11 23:37:45

邹锋发表于 2016-1-11 23:13
把它取值出来，判断是否整数然后ALERT跳出来提示

我的最后一个控件是ok_cancel_help_errtile控件，这个控件可以提示错误信息的，能不能在对话框关闭前就提示，而不是ALERT跳出来提示????

陨落 · 发表于 2016-1-12 16:24:51

本帖最后由陨落于 2016-1-12 16:49 编辑

在确定的动作中加入判断，如果数值不对就不退出，并在对话框上提示错误

wzg356 · 发表于 2016-1-12 19:39:11

(action_tile "accept" "(if (not(member (type (read (get_tile \"编制框关键字\"))) (list 'INT 'REAL)))(alert \"输入框有非数字！\") (done_dialog 1))")

fyl891 · 发表于 2016-1-15 14:28:57

陨落发表于 2016-1-12 16:24
在确定的动作中加入判断，如果数值不对就不退出，并在对话框上提示错误

嗯，大概了解了，谢谢

fyl891 · 发表于 2016-1-15 14:30:02

wzg356 发表于 2016-1-12 19:39
(action_tile "accept" "(if (not(member (type (read (get_tile \"编制框关键字\"))) (list 'INT 'REAL))) ...

这个还是用弹出对话框的形式来警告的，不过对我也有点帮助，谢谢

wandong · 发表于 2016-1-15 18:54:16

(action_tile "文本框key" "(xxxback $value)")
(defun xxxback(value / value1)
  (setq value1 (distof value))
  (if (and value1 正整数)
(progn
   (set_tile ...
   (mode_tile ...
)
(progn
   (set_tile ...
   (mode_tile ...
)
  );;endif
)

账号		自动登录	找回密码
密码			注册

[提问] 在DCL对话框中输入数字的限制

本帖子中包含更多资源

点评

本帖子中包含更多资源

点评

浏览过的版块