易语言实现图片框移动更换内容

易语言实现当鼠标移动到图片框上，内容更换为“01”
当鼠标移动到图片框外，内容更换为“02”

原理：
就是通过组件标记来识别，鼠标在不同的位置下的不同操作

具体代理如下：

.版本 2

.子程序 _图片框1_关闭_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 tpk, 图片框

tpk ＝ 取事件组件 ()
K寻找组标记 ＝ 到整数 (tpk.标记)
' 调试输出 (tpk.标记)
.如果 (K寻找组标记 ≠ 0)
    窗口1_抽奖盘.图片框1_关闭.图片 ＝ #K抽奖关闭_1

.否则



.版本 2

.子程序 _窗口1_抽奖盘_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 K当前组件, 图片框

' K当前组件 ＝ 窗口1_抽奖盘.取标记组件 (19298)
' K寻找组标记 ＝ 到整数 (K当前组件.标记)
' 调试输出 (K寻找组标记)
.如果 (K寻找组标记 ≠ 0)
    K寻找组标记 ＝ 0

.否则
    窗口1_抽奖盘.图片框1_关闭.图片 ＝ #K抽奖关闭_2
.如果结束

通过两个组件事件实现：
1.是图框的鼠标移动事件 2.是窗口鼠标鼠标移动事件！

这个效果用组件：位图按钮可以直接实现！