鼠标移动到标签位置就显示图片

xuexi

如题，然后没有到标签位置就不显示

十万个为什么

这样吗？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
左边x
左边d
顶边x
顶边d

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

编辑框横向.内容 ＝ 到文本 (横向位置)
编辑框纵向.内容 ＝ 到文本 (纵向位置)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果 (鼠标移动到标签_显示图片上 ())
标签_显示图片.底图 ＝ #图片1



标签_显示图片.底图 ＝ {  }
编辑框纵向.内容 ＝ “0”
编辑框横向.内容 ＝ “0”

子程序名	返回值类型	公开	备 注
鼠标移动到标签_显示图片上	逻辑型	√

变量名	类 型	静态	数组	备 注
a	逻辑型

如果 (取鼠标水平位置 () ＞ 左边x 且 取鼠标水平位置 () ＜ 左边d 且 取鼠标垂直位置 () ＞ 顶边x 且 取鼠标垂直位置 () ＜ 顶边d)
a ＝ 真
返回 (a)
a ＝ 假
返回 (a)

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

左边x ＝ _启动窗口.左边 ＋ 标签_显示图片.左边
左边d ＝ _启动窗口.左边 ＋ 标签_显示图片.左边 ＋ 标签_显示图片.宽度
' 本源码来自易语言吧([url]www.eyy8.vip[/url])
顶边x ＝ _启动窗口.顶边 ＋ _启动窗口.高度 － 取用户区高度 () ＋ 标签_显示图片.顶边
顶边d ＝ _启动窗口.高度 － 取用户区高度 () ＋ _启动窗口.顶边 ＋ 标签_显示图片.顶边 ＋ 标签_显示图片.高度

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

时钟1.时钟周期 ＝ 100

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 左边x<br /> .程序集变量 左边d<br /> .程序集变量 顶边x<br /> .程序集变量 顶边d<br /> <br /> .子程序 _标签_显示图片_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 编辑框横向.内容 ＝ 到文本 (横向位置)<br /> 编辑框纵向.内容 ＝ 到文本 (纵向位置)<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果 (鼠标移动到标签_显示图片上 ())<br /> <br />     标签_显示图片.底图 ＝ #图片1<br /> <br /> .否则<br /> <br />     标签_显示图片.底图 ＝ {  }<br /> <br /> <br />     编辑框纵向.内容 ＝ “0”<br />     编辑框横向.内容 ＝ “0”<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 鼠标移动到标签_显示图片上, 逻辑型, 公开<br /> .局部变量 a, 逻辑型<br /> <br /> .如果 (取鼠标水平位置 () ＞ 左边x 且 取鼠标水平位置 () ＜ 左边d 且 取鼠标垂直位置 () ＞ 顶边x 且 取鼠标垂直位置 () ＜ 顶边d)<br />     a ＝ 真<br />     返回 (a)<br /> .否则<br />     a ＝ 假<br />     返回 (a)<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 左边x ＝ _启动窗口.左边 ＋ 标签_显示图片.左边<br /> 左边d ＝ _启动窗口.左边 ＋ 标签_显示图片.左边 ＋ 标签_显示图片.宽度<br /> ' 本源码来自易语言吧(<a href="http://www.eyy8.vip" target="_blank">www.eyy8.vip</a>)<br /> 顶边x ＝ _启动窗口.顶边 ＋ _启动窗口.高度 － 取用户区高度 () ＋ 标签_显示图片.顶边<br /> 顶边d ＝ _启动窗口.高度 － 取用户区高度 () ＋ _启动窗口.顶边 ＋ 标签_显示图片.顶边 ＋ 标签_显示图片.高度<br /> <br /> .子程序 __启动窗口_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 时钟1.时钟周期 ＝ 100

piaoshi

事件子程序  有个鼠标被移动

xuexi

piaoshi 发表于 2020-4-15 21:19
事件子程序  有个鼠标被移动

具体怎么用呢

xuexi

十万个为什么 发表于 2020-4-15 21:54
这样吗？

不用这么麻烦的。。我就要这个鼠标移动到标签，然后弹出来一个图片在旁边
鼠标移开标签之后图片就消失

我大概知道要载入无边框的窗口，具体我还是不太会
就那个鼠标位置被移动不太懂

xuexi

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
I	整数型

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

I ＝ 1

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

I ＝ 0

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

I ＝ 0

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

判断 (I ＝ 1)
载入 (窗口1, , 假)

判断 (I ＝ 0)
如果 (是否已创建 (窗口1) ＝ 真)
窗口1.销毁 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 I, 整数型<br /> <br /> .子程序 _标签1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> I ＝ 1<br /> <br /> .子程序 __启动窗口_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> I ＝ 0<br /> <br /> .子程序 _编辑框1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> I ＝ 0<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .判断开始 (I ＝ 1)<br />     载入 (窗口1, , 假)<br /> <br /> .判断 (I ＝ 0)<br />     .如果 (是否已创建 (窗口1) ＝ 真)<br />         窗口1.销毁 ()<br />     .否则<br /> <br />     .如果结束<br /> <br /> .默认

xuexi

十万个为什么 发表于 2020-4-15 21:54
这样吗？

可以了 我自己搞定了

yyz860723

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！