组件复制及事件处理

立青

动态创建组件以及组件的事件处理，去除了手动创建重复类型组件的烦恼

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
控件组	控件组	0

子程序名	返回值类型	公开	备 注
_按钮_启动_被单击

变量名	类 型	静态	数组	备 注
来源按钮	按钮
选项	整数型
来源索引	整数型

来源按钮 ＝ 取事件组件 ()
来源索引 ＝ 到整数 (来源按钮.标记)
判断 (控件组 [来源索引].单选框组 [1].选中)
选项 ＝ 1
判断 (控件组 [来源索引].单选框组 [2].选中)
选项 ＝ 2
判断 (控件组 [来源索引].单选框组 [3].选中)
选项 ＝ 3
选项 ＝ 4
信息框 (取文本 (“来自第%d个控件组,%s”, 来源索引, 多项选择 (选项, “选择了第1个选项”, “选择了第2个选项”, “选择了第3个选项”, “没有选中”)), 0, “已选择选项”, _启动窗口)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
控件组数	整数型
i	整数型
控件顶边	整数型

控件组数 ＝ 到整数 (编辑框1.内容)
重定义数组 (控件组, 假, 控件组数)
计次循环首 (控件组数, i)
控件顶边 ＝ 控件顶边 ＋ 60
' 处理标签
复制窗口组件 (标签1, 控件组 [i].标签)
控件组 [i].标签.标题 ＝ “标签” ＋ 到文本 (i)
控件组 [i].标签.顶边 ＝ 控件顶边
控件组 [i].标签.可视 ＝ 真
' 处理选项组
复制窗口组件 (分组框1, 控件组 [i].分组框)
控件组 [i].分组框.顶边 ＝ 控件顶边 － 16
控件组 [i].分组框.可视 ＝ 真
复制窗口组件 (单选框_选项1, 控件组 [i].单选框组 [1])
复制窗口组件 (单选框_选项2, 控件组 [i].单选框组 [2])
复制窗口组件 (单选框_选项3, 控件组 [i].单选框组 [3])
' 设置单选框父窗口
控件组 [i].单选框组 [1].置父窗口 (控件组 [i].分组框)
控件组 [i].单选框组 [2].置父窗口 (控件组 [i].分组框)
控件组 [i].单选框组 [3].置父窗口 (控件组 [i].分组框)
控件组 [i].单选框组 [1].可视 ＝ 真
控件组 [i].单选框组 [2].可视 ＝ 真
控件组 [i].单选框组 [3].可视 ＝ 真
' 处理按钮
复制窗口组件 (按钮_启动, 控件组 [i].按钮)
控件组 [i].按钮.标记 ＝ 到文本 (i)
控件组 [i].按钮.顶边 ＝ 控件顶边 － 6
控件组 [i].按钮.可视 ＝ 真
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 控件组, 控件组, , "0"<br /> <br /> .子程序 _按钮_启动_被单击<br /> .局部变量 来源按钮, 按钮<br /> .局部变量 选项, 整数型<br /> .局部变量 来源索引, 整数型<br /> <br /> 来源按钮 ＝ 取事件组件 ()<br /> 来源索引 ＝ 到整数 (来源按钮.标记)<br /> .判断开始 (控件组 [来源索引].单选框组 [1].选中)<br />     选项 ＝ 1<br /> .判断 (控件组 [来源索引].单选框组 [2].选中)<br />     选项 ＝ 2<br /> .判断 (控件组 [来源索引].单选框组 [3].选中)<br />     选项 ＝ 3<br /> .默认<br />     选项 ＝ 4<br /> .判断结束<br /> 信息框 (取文本 (“来自第%d个控件组,%s”, 来源索引, 多项选择 (选项, “选择了第1个选项”, “选择了第2个选项”, “选择了第3个选项”, “没有选中”)), 0, “已选择选项”, _启动窗口)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 控件组数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 控件顶边, 整数型<br /> <br /> 控件组数 ＝ 到整数 (编辑框1.内容)<br /> 重定义数组 (控件组, 假, 控件组数)<br /> .计次循环首 (控件组数, i)<br />     控件顶边 ＝ 控件顶边 ＋ 60<br /> <br />     ' 处理标签<br />     复制窗口组件 (标签1, 控件组 <i>.标签)<br />     控件组 <i>.标签.标题 ＝ “标签” ＋ 到文本 (i)<br />     控件组 <i>.标签.顶边 ＝ 控件顶边<br />     控件组 <i>.标签.可视 ＝ 真<br /> <br />     ' 处理选项组<br />     复制窗口组件 (分组框1, 控件组 <i>.分组框)<br />     控件组 <i>.分组框.顶边 ＝ 控件顶边 － 16<br />     控件组 <i>.分组框.可视 ＝ 真<br />     复制窗口组件 (单选框_选项1, 控件组 <i>.单选框组 [1])<br />     复制窗口组件 (单选框_选项2, 控件组 <i>.单选框组 [2])<br />     复制窗口组件 (单选框_选项3, 控件组 <i>.单选框组 [3])<br />     ' 设置单选框父窗口<br />     控件组 <i>.单选框组 [1].置父窗口 (控件组 <i>.分组框)<br />     控件组 <i>.单选框组 [2].置父窗口 (控件组 <i>.分组框)<br />     控件组 <i>.单选框组 [3].置父窗口 (控件组 <i>.分组框)<br /> <br />     控件组 <i>.单选框组 [1].可视 ＝ 真<br />     控件组 <i>.单选框组 [2].可视 ＝ 真<br />     控件组 <i>.单选框组 [3].可视 ＝ 真<br /> <br />     ' 处理按钮<br />     复制窗口组件 (按钮_启动, 控件组 <i>.按钮)<br />     控件组 <i>.按钮.标记 ＝ 到文本 (i)<br />     控件组 <i>.按钮.顶边 ＝ 控件顶边 － 6<br />     控件组 <i>.按钮.可视 ＝ 真<br /> .计次循环尾 ()

玫瑰很扎手

666666666666

罗文

666666666666666

cqcc

学习学习

cqcc

支持开源

ghost12

欢迎常来帮助新人，谢谢~

huang14

支持开源~！感谢分享

石头怪

支持开源~！感谢

xh1020

感谢分享

shj0205

感谢分享