我又看了一下 题目。
要求用事件转移
调用格式: 〈逻辑型〉 事件转移 (通用型 组件一,[通用型 组件二]) - 系统核心支持库->其他
英文名称:EventPost
设置将第一个组件上产生的所有事件转交由第二个同窗口同类型组件的事件处理子程序去处理,就好象此事件是在第二个组件上实际发生的一样。本命令可用来设置用同一事件处理子程序处理来自多个同类型组件的事件。使用时可与“取事件组件”命令、对象的“标记”属性等相配合。设置成功返回真,失败返回假。本命令为中级命令。
参数<1>的名称为“组件一”,类型为“通用型(all)”。参数值指定欲将其事件转移的组件。如果该参数值指定的不是窗口内的组件,而是窗口本身,则不考虑“组件二”参数的设置情况,直接取消被指定窗口上所有组件事件转移设置。
参数<2>的名称为“组件二”,类型为“通用型(all)”,可以被省略。参数值指定组件一事件转移到的目的组件,必须与组件一的类型相同且在同一窗口内,否则命令会失败。如果本参数被省略,将取消组件一的原有事件转移设置。
操作系统需求: Windows
意思就是说 ,你先把编辑框这个组建标记了 然后 在调用 事件转移命令 下面是 题目答案的部分源码 仅供参考
编辑框 [1 ] = 编辑框1 编辑框 [2 ] = 编辑框2 编辑框 [3 ] = 编辑框3 编辑框 [4 ] = 编辑框4 计次循环首 (4, i )编辑框 [i ].最大允许长度 = 6 编辑框 [i ].标记 = 到文本 (i )计次循环尾 () 事件转移 (编辑框2, 编辑框1 )事件转移 (编辑框3, 编辑框1 )事件转移 (编辑框4, 编辑框1 )
|