所有标签统一用同一事件的怎么写？

SSS777

要是有几百个标签重复写相同的事件很麻烦的，
比如下面所有年纷的标签单击时此背景颜色和文本颜色要和上面粉色的标签的一样，
这样如何把粉红的标签事件复制给下面所有的年份标签事件呢？

aipca

SSS777 发表于 2025-3-13 21:17
在下面单击某一个标签时就全选所有标签了？
可不是这样的，只要任意单击某一个标签就显示颜色的，不是一 ...

  

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

变量名	类 型	静态	数组	备 注
标签事件	标签

标签事件 ＝ 取事件组件 ()
判断 (标签事件.背景颜色 ＝ #银白 )
标签事件.背景颜色 ＝ #粉红
标签事件.文本颜色 ＝ #艳青
标签事件.背景颜色 ＝ #银白
标签事件.文本颜色 ＝ #黑色

.版本 2<br /> <br /> .子程序 _标签_统一_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 标签事件, 标签<br /> <br /> 标签事件 ＝ 取事件组件 ()<br /> .判断开始 (标签事件.背景颜色 ＝ #银白)<br />     标签事件.背景颜色 ＝ #粉红<br />     标签事件.文本颜色 ＝ #艳青<br /> .默认<br />     标签事件.背景颜色 ＝ #银白<br />     标签事件.文本颜色 ＝ #黑色

那就修改一下这里

算法艺术家

复制组件

Orzlee

事件转移（）

aipca

  

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

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

变量名	类 型	静态	数组	备 注
i	整数型

判断 (标签_统一.背景颜色 ＝ #银白 )
标签_统一.背景颜色 ＝ #粉红
标签_统一.文本颜色 ＝ #艳青
标签_统一.背景颜色 ＝ #银白
标签_统一.文本颜色 ＝ #黑色

计次循环首 (取数组成员数 (标签_TY), i)
判断 (标签_TY [i].背景颜色 ＝ #银白 )
标签_TY [i].背景颜色 ＝ #粉红
标签_TY [i].文本颜色 ＝ #艳青
标签_TY [i].背景颜色 ＝ #银白
标签_TY [i].文本颜色 ＝ #黑色

计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型

加入成员 (标签_TY, 标签_1)
加入成员 (标签_TY, 标签_2)
加入成员 (标签_TY, 标签_3)
加入成员 (标签_TY, 标签_4)
加入成员 (标签_TY, 标签_5)
加入成员 (标签_TY, 标签_6)
加入成员 (标签_TY, 标签_7)
加入成员 (标签_TY, 标签_8)
加入成员 (标签_TY, 标签_9)
加入成员 (标签_TY, 标签_10)
加入成员 (标签_TY, 标签_11)
加入成员 (标签_TY, 标签_12)
加入成员 (标签_TY, 标签_13)
加入成员 (标签_TY, 标签_14)
计次循环首 (取数组成员数 (标签_TY), i)
事件转移 (标签_TY [i], 标签_统一)
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 标签_TY, 标签, , "0"<br /> <br /> .子程序 _标签_统一_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (标签_统一.背景颜色 ＝ #银白)<br />     标签_统一.背景颜色 ＝ #粉红<br />     标签_统一.文本颜色 ＝ #艳青<br /> .默认<br />     标签_统一.背景颜色 ＝ #银白<br />     标签_统一.文本颜色 ＝ #黑色<br /> .判断结束<br /> <br /> .计次循环首 (取数组成员数 (标签_TY), i)<br />     .判断开始 (标签_TY <i>.背景颜色 ＝ #银白)<br />         标签_TY <i>.背景颜色 ＝ #粉红<br />         标签_TY <i>.文本颜色 ＝ #艳青<br />     .默认<br />         标签_TY <i>.背景颜色 ＝ #银白<br />         标签_TY <i>.文本颜色 ＝ #黑色<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 加入成员 (标签_TY, 标签_1)<br /> 加入成员 (标签_TY, 标签_2)<br /> 加入成员 (标签_TY, 标签_3)<br /> 加入成员 (标签_TY, 标签_4)<br /> 加入成员 (标签_TY, 标签_5)<br /> 加入成员 (标签_TY, 标签_6)<br /> 加入成员 (标签_TY, 标签_7)<br /> 加入成员 (标签_TY, 标签_8)<br /> 加入成员 (标签_TY, 标签_9)<br /> 加入成员 (标签_TY, 标签_10)<br /> 加入成员 (标签_TY, 标签_11)<br /> 加入成员 (标签_TY, 标签_12)<br /> 加入成员 (标签_TY, 标签_13)<br /> 加入成员 (标签_TY, 标签_14)<br /> .计次循环首 (取数组成员数 (标签_TY), i)<br />     事件转移 (标签_TY <i>, 标签_统一)<br /> .计次循环尾 ()

LWB666

事件转移()    取事件组件()

w589321

https://bbs.125.la/thread-14850633-1-1.html  

笨来无一悟

复制窗口组件 [ 选择框 ]
https://bbs.125.la/forum.php?mod=viewthread&tid=14786005
(出处: 精易论坛)
类似这样

SSS777

aipca 发表于 2025-3-13 16:05
[e=1].版本 2

.程序集 窗口程序集_启动窗口

在下面单击某一个标签时就全选所有标签了？
可不是这样的，只要任意单击某一个标签就显示颜色的，不是一单击就全选。
麻烦您帮我修改下！！！谢谢您

aipca

把你标签全删除了，重新补个带复制组件的。