本人弄不懂复制窗口组件

superuserlrj

[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 程_按钮, 按钮, , "0", 注意：被复制的组件是什么类型的变量就要选择什么类型的

.子程序 __启动窗口_创建完毕
.局部变量 局_计次, 整数型
.局部变量 局_按钮, 按钮

.计次循环首 (10, 局_计次)  ' 复制10个按钮组件
    复制窗口组件 (按钮1, 局_按钮)
    加入成员 (程_按钮, 局_按钮)
    程_按钮 [局_计次].标记 ＝ 到文本 (局_计次)
    程_按钮 [局_计次].顶边 ＝ 按钮1.顶边 ＋ 按钮1.高度 × 局_计次  ' 赋值新按钮的顶边
    程_按钮 [局_计次].标题 ＝ “我是被复制出来的按钮”  ' 赋值新按钮的标题
    程_按钮 [局_计次].宽度 ＝ 150  ' 赋值新按钮的宽度
    程_按钮 [局_计次].可视 ＝ 真  ' 赋值新按钮的可视属性  真 = 可以看得见的  假 = 看不见的
.计次循环尾 ()
' 复制出来的组件的事件与被复制的组件事件是共享的！
' 这里有例程，你自己去下载看看吧！地址：http://bbs.125.la/thread-13679943-1-1.html
[/e]

superuserlrj

最佳吧！
[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 程_按钮, 按钮, , "0"

.子程序 __启动窗口_创建完毕
.局部变量 局_计次, 整数型
.局部变量 局_按钮, 按钮

.计次循环首 (10, 局_计次)  ' 复制10个按钮组件
    复制窗口组件 (按钮1, 局_按钮)
    加入成员 (程_按钮, 局_按钮)
    程_按钮 [局_计次].标记 ＝ 到文本 (局_计次)
    程_按钮 [局_计次].顶边 ＝ 按钮1.顶边 ＋ 按钮1.高度 × 局_计次  ' 赋值新按钮的顶边
    程_按钮 [局_计次].标题 ＝ “我是被复制出来的按钮”  ' 赋值新按钮的标题
    程_按钮 [局_计次].宽度 ＝ 150  ' 赋值新按钮的宽度
    程_按钮 [局_计次].可视 ＝ 真  ' 赋值新按钮的可视属性  真 = 可以看得见的  假 = 看不见的
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 局_按钮, 按钮

局_按钮 ＝ 取事件组件 ()
.判断开始 (局_按钮.标记 ＝ “”)
    信息框 (“我是按钮”, 0, )
.判断 (局_按钮.标记 ＝ “1”)
    信息框 (“我是按钮1”, 0, )
.判断 (局_按钮.标记 ＝ “2”)
    信息框 (“我是按钮2”, 0, )
.判断 (局_按钮.标记 ＝ “3”)
    信息框 (“我是按钮3”, 0, )
.判断 (局_按钮.标记 ＝ “4”)
    信息框 (“我是按钮4”, 0, )
.判断 (局_按钮.标记 ＝ “5”)
    信息框 (“我是按钮5”, 0, )
.判断 (局_按钮.标记 ＝ “6”)
    信息框 (“我是按钮6”, 0, )
.判断 (局_按钮.标记 ＝ “7”)
    信息框 (“我是按钮7”, 0, )
.判断 (局_按钮.标记 ＝ “8”)
    信息框 (“我是按钮8”, 0, )
.判断 (局_按钮.标记 ＝ “9”)
    信息框 (“我是按钮9”, 0, )
.判断 (局_按钮.标记 ＝ “10”)
    信息框 (“我是按钮10”, 0, )
.默认

.判断结束
[/e]