|
如下代码,就会限制编辑框输入数字1,其它的限制自己改改。
- <火山程序 类型 = "通常" 版本 = 1 />
- 方法 编辑框_内容被改变时 <接收事件 类型 = 整数 注释 = "需要设置"支持内容改变监听=真"本事件才会触发.">
- 参数 来源对象 <类型 = 编辑框 注释 = "提供事件产生的具体来源对象">
- 参数 标记值 <类型 = 整数 注释 = "用户调用"挂接事件"命令时所提供的"标记值"参数值,非此方式挂接事件则本参数值固定为0.">
- 参数 新增内容 <类型 = 文本型 注释 = "提供新增的内容">
- 参数 发生变化位置 <类型 = 整数>
- 参数 变化前的字符数 <类型 = 整数>
- 参数 变化的字符数 <类型 = 整数>
- {
- 如果 (来源对象 == 编辑框1)
- {
- 变量 位置 <类型 = 整数>
- 位置 = 来源对象.光标位置
- 如果 (新增内容 == "1") // 不能输入1
- {
- 变量 左边 <类型 = 文本型>
- 变量 右边 <类型 = 文本型>
- 如果 (来源对象.光标位置 == 0)
- {
- 左边 = ""
- }
- 否则
- {
- 左边 = 取文本左边 (来源对象.内容, 来源对象.光标位置 - 1)
- }
- 调试输出2 (来源对象.光标位置, 左边)
- 如果 (来源对象.光标位置 == 取文本长度 (来源对象.内容))
- {
- 右边 = ""
- }
- 否则
- {
- 右边 = 取文本右边 (来源对象.内容, 取文本长度 (来源对象.内容) - 来源对象.光标位置)
- }
- 调试输出2 (来源对象.光标位置, 右边)
- 调试输出2 (左边, 右边)
- 来源对象.内容 = 左边 + 右边
- 来源对象.光标位置 = 位置 - 1
- }
- }
- 返回 (0)
- }
复制代码
|
|