|
原帖由 2010qaqz111 于 2013-3-3 19:58 发表 ![](http://bbs.wuyou.net/images/common/back.gif)
响应,根据键入内容的变化改变其他控件的状态,比如不允许空密码等等。
如果阻止也能实现的话更好,可以定义密码的字符集,免得其他地方处理的时候出错,比如出现空格被截断之类。
ENVI &&WM_COMMAND=0x0111
ENVI &&EN_CHANGE=0x0300
_SUB WIN1,W354H309,
ENVI &&i=0
ENVI &&OldMsg=原始内容
MEMO &Edit1,L10T10W275H140,%&OldMsg%,,
ENVI @WIN1.MSG=%&WM_COMMAND%::&&wp,&&lp, CALL OnCommand
LABE &提示,L28T204W263H30,,,
_END
WIN1
_SUB OnCommand
CALC -base=16 #&&wCode=%&wp% / 0x10000 //高16位
IFEX $%&EN_CHANGE% = %&wCode% , EXIT //不是改变
//内容改变,响应
// 不要用 MESS
CALC #&i= %&i% + 1
ENVI @&提示=内容改变了 %&i%
//ENVI @&Edit1=%&OldMsg% //恢复旧内容,阻止改变
_END
多个 EDIT、MEMO 区分:
CALC -base=16 #&&id=%&wp% % 0x10000 //低16位
&id 不同, 依次加 1
[ 本帖最后由 mdyblog 于 2013-3-4 00:17 编辑 ] |
|