如何实现动态组件的标签点击事件

小浪在天朝

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
标签变量	标签
index	整数型

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

变量名	类 型	静态	数组	备 注
x标	整数型
y标	整数型
左边变量	整数型
顶边变量	整数型

_启动窗口.底色 ＝ 取颜色值 (194, 184, 169)
' 标签1.背景颜色 ＝ 取颜色值 (204, 192, 178)
标签1.可视 ＝ 假
计次循环首 (4, x标)
左边变量 ＝ 88 �� (x标 － 1) ＋ 32 ��� (x标 － 1) × 10
计次循环首 (4, y标)
顶边变量 ＝ 88 �� (y标 － 1) ＋ 32 ��� (y标 － 1) × 10
index ＝ (x标 － 1) × 4 ＋ y标
复制窗口组件 (标签1, 标签变量)
标签变量.顶边 ＝ 顶边变量
标签变量.左边 ＝ 左边变量
标签变量.可视 ＝ 真
标签变量.标题 ＝ 到文本 (x标) ＋ “,” ＋ 到文本 (y标)
标签变量.标记 ＝ 到文本 (index)
计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 标签变量, 标签<br /> .程序集变量 index, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 x标, 整数型<br /> .局部变量 y标, 整数型<br /> .局部变量 左边变量, 整数型<br /> .局部变量 顶边变量, 整数型<br /> <br /> _启动窗口.底色 ＝ 取颜色值 (194, 184, 169)<br /> ' 标签1.背景颜色 ＝ 取颜色值 (204, 192, 178)<br /> 标签1.可视 ＝ 假<br /> <br /> .计次循环首 (4, x标)<br /> <br />     左边变量 ＝ 88 × (x标 － 1) ＋ 32 ＋ (x标 － 1) × 10<br /> <br />     .计次循环首 (4, y标)<br />         顶边变量 ＝ 88 × (y标 － 1) ＋ 32 ＋ (y标 － 1) × 10<br />         index ＝ (x标 － 1) × 4 ＋ y标<br />         复制窗口组件 (标签1, 标签变量)<br />         标签变量.顶边 ＝ 顶边变量<br />         标签变量.左边 ＝ 左边变量<br />         标签变量.可视 ＝ 真<br />         标签变量.标题 ＝ 到文本 (x标) ＋ “,” ＋ 到文本 (y标)<br />         标签变量.标记 ＝ 到文本 (index)<br /> <br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()

实现的程序，见附件

下一秒说爱你

1. .版本 2
   
2. 
   
3. .子程序 _标签1_鼠标左键被按下, 逻辑型
   
4. .参数 横向位置, 整数型
   
5. .参数 纵向位置, 整数型
   
6. .参数 功能键状态, 整数型
   
7. .局部变量 标签, 标签
   
8. 
   
9. 标签 ＝ 取事件组件 ()
   
10. 信息框 (标签.标题 ＋ “被点击了 序号是” ＋ 标签.标记, 0, )
    

复制代码