| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 集_图片框组 | 图片框 | 0 |
| 集_按下图片框句柄 | 整数型 | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| h_find | 整数型 | | |
| count | 整数型 | | |
| i | 整数型 | | |
h_find ＝
寻找组件 (_启动窗口,
“图片框”, , ,
)count ＝
取找到组件数目 (h_find
)重定义数组 (集_图片框组, 假, count
)
计次循环首 (count, i
)
集_图片框组
[count － i ＋ 1
] ＝
取所找到组件 (h_find, i － 1
)集_图片框组
[count － i ＋ 1
].背景颜色 ＝
#黑色 集_图片框组
[count － i ＋ 1
].显示方式 ＝ 2
集_图片框组
[count － i ＋ 1
].边框 ＝ 5
集_图片框组
[count － i ＋ 1
].标记 ＝
“0”
计次循环尾 ()清除组件寻找句柄 (h_find
)计次循环首 (count, i
)
如果真 (i ≠ 1
)事件转移 (集_图片框组
[i
], 集_图片框组
[1
])
计次循环尾 ()|
| _图片框1_鼠标左键被按下 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
pic ＝
取事件组件 ()集_按下图片框句柄 ＝ pic.
取窗口句柄 ()|
| _图片框1_鼠标左键被放开 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
如果真 (集_按下图片框句柄 ＝ 0
)返回 ()pic ＝ 取事件组件 ()如果真 (pic.
取窗口句柄 () ≠ 集_按下图片框句柄
)返回 ()如果 (pic.标记 ＝
“0”)pic.标记 ＝
“1”
pic.背景颜色 ＝
#黄色 
pic.标记 ＝
“0”
pic.背景颜色 ＝
#黑色 
图片框点击事件.e
(10.08 KB, 下载次数: 10)