|
分享源码
界面截图: |
|
是否带模块: |
纯源码 |
备注说明: |
- |
本帖最后由 立青 于 2021-9-1 17:02 编辑
动态创建组件以及组件的事件处理,去除了手动创建重复类型组件的烦恼
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 控件组 | 控件组 | 0 |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 来源按钮 | 按钮 | | | 选项 | 整数型 | | | 来源索引 | 整数型 | | |
来源按钮 = 取事件组件 ()来源索引 = 到整数 (来源按钮.标记 )判断 (控件组 [来源索引 ].单选框组 [1 ].选中 )选项 = 1 判断 (控件组 [来源索引 ].单选框组 [2 ].选中 )选项 = 2 判断 (控件组 [来源索引 ].单选框组 [3 ].选中 )选项 = 3 选项 = 4 信息框 (取文本 (“来自第%d个控件组,%s”, 来源索引, 多项选择 (选项, “选择了第1个选项”, “选择了第2个选项”, “选择了第3个选项”, “没有选中”)), 0, “已选择选项”, _启动窗口)变量名 | 类 型 | 静态 | 数组 | 备 注 | 控件组数 | 整数型 | | | 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 ].按钮.可视 = 真 计次循环尾 ()
|
-
-
组件复制.e
6.95 KB, 下载次数: 38, 下载积分: 精币 -2 枚
-
-
控件复制2.e
9.18 KB, 下载次数: 41, 下载积分: 精币 -2 枚
进阶版
评分
-
查看全部评分
|