鼠标移动到标签位置就显示图片
如题，然后没有到标签位置就不显示这样吗？
.版本 2
.程序集 窗口程序集1
.程序集变量 左边x
.程序集变量 左边d
.程序集变量 顶边x
.程序集变量 顶边d
.子程序 _标签_显示图片_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框横向.内容 ＝ 到文本 (横向位置)
编辑框纵向.内容 ＝ 到文本 (纵向位置)
.子程序 _时钟1_周期事件
.如果 (鼠标移动到标签_显示图片上 ())
标签_显示图片.底图 ＝ #图片1
.否则
标签_显示图片.底图 ＝ {}
编辑框纵向.内容 ＝ “0”
编辑框横向.内容 ＝ “0”
.如果结束
.子程序 鼠标移动到标签_显示图片上, 逻辑型, 公开
.局部变量 a, 逻辑型
.如果 (取鼠标水平位置 () ＞ 左边x 且 取鼠标水平位置 () ＜ 左边d 且 取鼠标垂直位置 () ＞ 顶边x 且 取鼠标垂直位置 () ＜ 顶边d)
a ＝ 真
返回 (a)
.否则
a ＝ 假
返回 (a)
.如果结束
.子程序 __启动窗口_创建完毕
左边x ＝ _启动窗口.左边 ＋ 标签_显示图片.左边
左边d ＝ _启动窗口.左边 ＋ 标签_显示图片.左边 ＋ 标签_显示图片.宽度
' 本源码来自易语言吧(www.eyy8.vip)
顶边x ＝ _启动窗口.顶边 ＋ _启动窗口.高度 － 取用户区高度 () ＋ 标签_显示图片.顶边
顶边d ＝ _启动窗口.高度 － 取用户区高度 () ＋ _启动窗口.顶边 ＋ 标签_显示图片.顶边 ＋ 标签_显示图片.高度
.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟1.时钟周期 ＝ 100
事件子程序有个鼠标被移动 piaoshi 发表于 2020-4-15 21:19
事件子程序有个鼠标被移动
具体怎么用呢 十万个为什么 发表于 2020-4-15 21:54
这样吗？
不用这么麻烦的。。我就要这个鼠标移动到标签，然后弹出来一个图片在旁边
鼠标移开标签之后图片就消失
我大概知道要载入无边框的窗口，具体我还是不太会
就那个鼠标位置被移动不太懂
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 I, 整数型
.子程序 _标签1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
I ＝ 1
.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
I ＝ 0
.子程序 _编辑框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
I ＝ 0
.子程序 _时钟1_周期事件
.判断开始 (I ＝ 1)
载入 (窗口1, , 假)
.判断 (I ＝ 0)
.如果 (是否已创建 (窗口1) ＝ 真)
窗口1.销毁 ()
.否则
.如果结束
.默认
十万个为什么 发表于 2020-4-15 21:54
这样吗？
可以了 我自己搞定了:lol 楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！
页:
[1]