慧博天远 发表于 2020-6-21 21:36:06

目标是：创建动态编辑框，任意移动，不受到二次创建影响


目标是：创建动态编辑框，任意移动，不受到二次创建影响

目标是：创建动态编辑框，任意移动，不受到二次创建影响 ，代码如下：

变量 组件集合 为 集合
变量 组件 为 编辑框
变量 计次 为 整数型
变量 移动 为 整数型
变量 终点横坐标 为 整数型
变量 起点横坐标 为 整数型
变量 终点纵坐标 为 整数型
变量 起点纵坐标 为 整数型
事件 主窗口.创建完毕()
组件集合 = 创建 集合
结束 事件
事件 按钮_创建.被单击()
组件 = 创建 编辑框 位于 主窗口
可视 = 真
组件集合.加入项目(组件)
变量循环首 计次 = 0 至 组件集合.取项目总数()-1
组件 = 组件集合.取项目(计次)
组件.左边 = 按钮_创建.左边
组件.顶边 = 按钮_创建.顶边' + 按钮_创建.高度 * (计次+1)
组件.顶边 = 按钮_创建.高度
组件.宽度 = 按钮_创建.宽度
组件.高度 = 按钮_创建.高度
组件.对齐方式 = 靠中居中
组件.字体大小 = 9
组件.可视 = 真
组件.置组件索引(计次) '设置按钮的ID
组件.绑定事件(事件监听器1) '绑定事件
组件.移动(组件.左边 + 终点横坐标 - 起点横坐标,组件.顶边 + 终点纵坐标 - 起点纵坐标,组件.宽度,组件.高度)
'组件.标题 = "" & 计次
组件.背景图片 = "anniu6.png"
变量循环尾
结束 事件
事件 按钮_创建.被移动(起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)
组件.移动(组件.左边 + 终点横坐标 - 起点横坐标,组件.顶边 + 终点纵坐标 - 起点纵坐标,组件.宽度,组件.高度)
结束 事件

q937315836 发表于 2020-6-22 22:27:41

牛批！！！！

易8643501 发表于 2022-2-10 14:17:58

易如意中文编程学习交流论坛有你更精彩~

18754878785 发表于 2022-6-7 09:31:43

这种方式能不能做出一个带编辑功能的列表框

易8643501 发表于 2023-4-11 22:27:49

易如意中文编程学习交流论坛有你更精彩~

ok378 发表于 2023-5-14 13:33:48

谢谢楼主分享

ok378 发表于 2023-7-12 15:40:22

谢谢分享
页: [1]
查看完整版本: 目标是：创建动态编辑框，任意移动，不受到二次创建影响