| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 集_标签组 | 标签 | 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.文本颜色
动态复制标签，转移事件，设置背景颜色和文本颜色.e
(5.07 KB, 下载次数: 29)
