图片框点击事件问题

603022353

点击任意图片框，左键点击变成背景色变成黄色，再次左键点击变成黑色遇到点击后没反应问题



图片框点击事件.e (10.08 KB, 下载次数: 10)

2025-3-21 14:23 上传

点击文件名下载附件

w589321

图片框点击事件.e (7.47 KB, 下载次数: 6)

2025-3-21 15:28 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_图片框组	图片框	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 ＝ 取事件组件 ()
集_按下图片框句柄 ＝ pic.取窗口句柄 ()

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
pic	图片框

如果真 (集_按下图片框句柄 ＝ 0)
返回 ()
pic ＝ 取事件组件 ()
如果真 (pic.取窗口句柄 () ≠ 集_按下图片框句柄)
返回 ()

如果 (pic.标记 ＝ “0”)
pic.标记 ＝ “1”
pic.背景颜色 ＝ #黄色
pic.标记 ＝ “0”
pic.背景颜色 ＝ #黑色

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_图片框组, 图片框, , "0"<br /> .程序集变量 集_按下图片框句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 h_find, 整数型<br /> .局部变量 count, 整数型<br /> .局部变量 i, 整数型<br /> <br /> h_find ＝ 寻找组件 (_启动窗口, “图片框”, , , )<br /> count ＝ 取找到组件数目 (h_find)<br /> 重定义数组 (集_图片框组, 假, count)<br /> .计次循环首 (count, i)<br />     集_图片框组 [count － i ＋ 1] ＝ 取所找到组件 (h_find, i － 1)<br />     集_图片框组 [count － i ＋ 1].背景颜色 ＝ #黑色<br />     集_图片框组 [count － i ＋ 1].显示方式 ＝ 2<br />     集_图片框组 [count － i ＋ 1].边框 ＝ 5<br />     集_图片框组 [count － i ＋ 1].标记 ＝ “0”<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (h_find)<br /> .计次循环首 (count, i)<br />     .如果真 (i ≠ 1)<br />         事件转移 (集_图片框组 <i>, 集_图片框组 [1])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 pic, 图片框<br /> <br /> pic ＝ 取事件组件 ()<br /> 集_按下图片框句柄 ＝ pic.取窗口句柄 ()<br /> <br /> .子程序 _图片框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 pic, 图片框<br /> <br /> .如果真 (集_按下图片框句柄 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> pic ＝ 取事件组件 ()<br /> .如果真 (pic.取窗口句柄 () ≠ 集_按下图片框句柄)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果 (pic.标记 ＝ “0”)<br />     pic.标记 ＝ “1”<br />     pic.背景颜色 ＝ #黄色<br /> .否则<br />     pic.标记 ＝ “0”<br />     pic.背景颜色 ＝ #黑色<br /> .如果结束

云少i

你这是AI写的吧。

易有易用

直接写代码，不都是一个如果就可以实现吗

云少i

  

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

调试输出 (“按下了左键”)

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

调试输出 (“按下了右键”)

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

调试输出 (“放开了左键”)

子程序名	返回值类型	公开	备 注
_图片框1_鼠标右键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

调试输出 (“放开了右键”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 调试输出 (“按下了左键”)<br /> <br /> .子程序 _图片框1_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 调试输出 (“按下了右键”)<br /> <br /> .子程序 _图片框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 调试输出 (“放开了左键”)<br /> <br /> .子程序 _图片框1_鼠标右键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 调试输出 (“放开了右键”)