易语言 让标签标题不断的加1

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 密码, 整数型

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 100

密码 ＝ 到整数 (编辑框1.内容)

标签1.标题 ＝ 到文本 (密码)

.子程序 _时钟1_周期事件

标签1.标题 ＝ 到文本 (到整数 (标签1.标题)+1)

.版本 2

.程序集 窗口程序集1

.程序集变量 lable, 标签, , "3", 你可以通过其他方法获得标签的数目之类的

.子程序 _按钮1_被单击

.局部变量 n, 整数型

.局部变量 i, 整数型

n ＝ 取数组成员数 (lable)  ' 获取多少个标签

.计次循环首 (n, i)

  lable [i].标题 ＝ 到文本 (i) ＋ “次”

.计次循环尾 ()

.子程序 __启动窗口_创建完毕

' 把标签装到数组中

' 通过数组的所以要来分配

lable [1] ＝ 标签1

lable [2] ＝ 标签2

lable [3] ＝ 标签3

这个很容易，假设你对超级列表框的用法有所了解的话，用一个二重循环就解决了；外层循环取得A列数据，内层循环按照索引（0-2,3-5,6-8，9-11,12-14）循环赋值；超级列表框需要用到两个命令：插入表项（），置标题（）；OK!下面是我写的：-----------------------------------------------------ECODE---------------------------------------------.版本

2

.支持库

iext.子程序

_按钮1_被单击

.局部变量

单元格式索引.变量循环首

(1,

15,

1,

单元格式索引)

.如果真

(单元格式索引

＞

9)

'A列凑够15，这样9行以后才能显现；超级列表框的表项若为空，整行都不显示数据！

超级列表框1.插入表项

(,

“填充”,

,

,

,

)

到循环尾

()

.如果真结束

超级列表框1.插入表项

(,

到文本

(单元格式索引

×

111111),

,

,

,

)

.变量循环尾

()

.子程序

_按钮2_被单击

.局部变量

A列索引

.局部变量

B列索引.计次循环首

(5,

A列索引)

超级列表框1.取标题

(A列索引

－

1,

0)

'

取得A列的数据值

.计次循环首

(3,

B列索引)

超级列表框1.置标题

((A列索引

－

1)

×

3

＋

B列索引

－

1,

1,

到文本

(A列索引

×

111111))

.计次循环尾

()

.计次循环尾

()

.子程序

_按钮3_被单击超级列表框1.全部删除

()

-----------------------------------------------END----------------------------------------------------------

---