动态复制标签，转移事件，设置背景颜色和文本颜色

w589321

看到个求助帖：https://125.confly.eu.org/thread-14850629-1-1.html，类似的问题挺多的，干脆撸了份差不多通用的代码，做个备份，以防忘记。

动态复制标签，转移事件，设置背景颜色和文本颜色.e (5.07 KB, 下载次数: 27)

2025-3-13 16:39 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序_动态创建标签 (标签_统一, 14, 24, 88, 10, 7, 2017)

子程序名	返回值类型	公开	备 注
子程序_动态创建标签
参数名	类 型	参考	可空	数组	备 注
参_参考标签	标签
参_创建数量	整数型
参_左坐标	整数型				第一个标签的左坐标
参_顶坐标	整数型				第一个标签的顶坐标
参_标签间隔	整数型
参_横向个数	整数型
参_起始年份	整数型

变量名	类 型	静态	数组	备 注
i	整数型
x	整数型
y	整数型
l	整数型
t	整数型

参_参考标签.标记 ＝ “1000”
重定义数组 (集_标签组, 假, 参_创建数量)
计次循环首 (参_创建数量, i)
复制窗口组件 (参_参考标签, 集_标签组 [i])
事件转移 (集_标签组 [i], 参_参考标签)
x ＝ 选择 (i ％ 参_横向个数 ＝ 0, 参_横向个数 － 1, i ％ 参_横向个数 － 1)
y ＝ 选择 (i ％ 参_横向个数 ＝ 0, i ＼ 参_横向个数 － 1, i ＼ 参_横向个数)
l ＝ 参_左坐标 ��� (参_参考标签.宽度 ＋ 参_标签间隔) × x
t ＝ 参_顶坐标 ��� (参_参考标签.高度 ＋ 参_标签间隔) × y
集_标签组 [i].左边 ＝ l
集_标签组 [i].顶边 ＝ t
集_标签组 [i].标题 ＝ 到文本 (参_起始年份 ＋ i － 1)
集_标签组 [i].标记 ＝ 到文本 (1000 ＋ i)
集_标签组 [i].背景颜色 ＝ -16777216
集_标签组 [i].文本颜色 ＝ #黑色
集_标签组 [i].可视 ＝ 真
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_标签_统一_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
label_main	标签
label	标签

label ＝ 取事件组件 ()
如果真 (label.标记 ＝ “1000”)
返回 ()
label_main ＝ 取标记组件 (1000)
label.背景颜色 ＝ label_main.背景颜色
label.文本颜色 ＝ label_main.文本颜色

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_标签组, 标签, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子程序_动态创建标签 (标签_统一, 14, 24, 88, 10, 7, 2017)<br /> <br /> .子程序 子程序_动态创建标签<br /> .参数 参_参考标签, 标签<br /> .参数 参_创建数量, 整数型<br /> .参数 参_左坐标, 整数型, , 第一个标签的左坐标<br /> .参数 参_顶坐标, 整数型, , 第一个标签的顶坐标<br /> .参数 参_标签间隔, 整数型<br /> .参数 参_横向个数, 整数型<br /> .参数 参_起始年份, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 l, 整数型<br /> .局部变量 t, 整数型<br /> <br /> 参_参考标签.标记 ＝ “1000”<br /> 重定义数组 (集_标签组, 假, 参_创建数量)<br /> .计次循环首 (参_创建数量, i)<br />     复制窗口组件 (参_参考标签, 集_标签组 <i>)<br />     事件转移 (集_标签组 <i>, 参_参考标签)<br />     x ＝ 选择 (i ％ 参_横向个数 ＝ 0, 参_横向个数 － 1, i ％ 参_横向个数 － 1)<br />     y ＝ 选择 (i ％ 参_横向个数 ＝ 0, i ＼ 参_横向个数 － 1, i ＼ 参_横向个数)<br />     l ＝ 参_左坐标 ＋ (参_参考标签.宽度 ＋ 参_标签间隔) × x<br />     t ＝ 参_顶坐标 ＋ (参_参考标签.高度 ＋ 参_标签间隔) × y<br />     集_标签组 <i>.左边 ＝ l<br />     集_标签组 <i>.顶边 ＝ t<br />     集_标签组 <i>.标题 ＝ 到文本 (参_起始年份 ＋ i － 1)<br />     集_标签组 <i>.标记 ＝ 到文本 (1000 ＋ i)<br />     集_标签组 <i>.背景颜色 ＝ -16777216<br />     集_标签组 <i>.文本颜色 ＝ #黑色<br />     集_标签组 <i>.可视 ＝ 真<br /> .计次循环尾 ()<br /> <br /> .子程序 _标签_统一_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 label_main, 标签<br /> .局部变量 label, 标签<br /> <br /> label ＝ 取事件组件 ()<br /> .如果真 (label.标记 ＝ “1000”)<br />     返回 ()<br /> .如果真结束<br /> label_main ＝ 取标记组件 (1000)<br /> label.背景颜色 ＝ label_main.背景颜色<br /> label.文本颜色 ＝ label_main.文本颜色

我的yyy123

学习学习

sostemp

感谢分享，很给力！~

please

感谢分享，支持开源！！！

胖子葛格

感谢大神分享~！

year1970

感谢分享

查过

感谢分享，很给力！~

豆豆灰常开心

感谢发布原创作品，精易因你更精彩！6666666666666

futiem

动态复制标签，转移事件

bianyuan456

已经顶贴，感谢您对论坛的支持！