编辑框内容增加，让标签1的左边增加

15368134513

编辑框内容增加，就让编辑框的左边，运动+20怎么实现
我这样写然后就卡死了 有谁教教我


.

  

我日 ＝ 文本_取文本行长度 (编辑框2.内容, 1)  ' 现在的字符数有多少
A ＝ 1
判断循环首 (A ＝ 1)  ' 先让他死循环
如果 (我1 ＞ 7)
我在2 ＝ 我1 － 1  ' 就让大于7的那个数-1
标签1.左边 ＝标签1.左边 ＋ 10  ' 如果-了一之后还大于距离就加10


标签1.左边 ＝ 画板1.左边 － 10
如果 (我在2 ＝ 我1)  ' 如果失败了就在判断
A ＝ 0
跳出循环 ()




判断循环尾 ()

.版本 2<br /> <br /> 我日 ＝ 文本_取文本行长度 (编辑框2.内容, 1)  ' 现在的字符数有多少<br /> A ＝ 1<br /> .判断循环首 (A ＝ 1)  ' 先让他死循环<br />     .如果 (我1 ＞ 7)<br />         我在2 ＝ 我1 － 1  ' 就让大于7的那个数-1<br />         标签1.左边 ＝标签1.左边 ＋ 10  ' 如果-了一之后还大于距离就加10<br />     .否则<br /> <br />         标签1.左边 ＝ 画板1.左边 － 10<br />         .如果 (我在2 ＝ 我1)  ' 如果失败了就在判断<br />             A ＝ 0<br />             跳出循环 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .判断循环尾 ()

菊部变暖

你想这样？

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
xx	整数型

xx ＝ 编辑框1.左边
判断循环首 (真)
编辑框1.左边 ＝ xx ＋ 取文本长度 (编辑框1.内容)
延时 (10)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 xx, 整数型<br /> <br /> xx ＝ 编辑框1.左边<br /> .判断循环首 (真)<br />     编辑框1.左边 ＝ xx ＋ 取文本长度 (编辑框1.内容)<br />     延时 (10)<br /> .判断循环尾 ()

为什么不试试这样呢？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
xx	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

xx ＝ 编辑框1.左边

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

编辑框1.左边 ＝ xx ＋ 取文本长度 (编辑框1.内容)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 xx, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> xx ＝ 编辑框1.左边<br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> 编辑框1.左边 ＝ xx ＋ 取文本长度 (编辑框1.内容)