1鼠标移开自动隐藏的代码如下:
。版本 2
支持库 xplib
。支持库 spec
支持库 eAPI
。程序集 窗口程序集1
程序集变量 程_是否离开窗体, 逻辑型
。程序集变量 程_透明度, 整数型
子程序 __启动窗口_创建完毕
XP风格 (2)
程_透明度 = 255
时钟1。
时钟周期 = 1000
' 本源码来自易语言资源网(www5A5X。com)
子程序 _时钟1_周期事件
。局部变量 P, 坐标_
局部变量 R, 矩形_
取鼠標位置_ (P)
取窗口矩形_ (_启动窗口。
取窗口句柄 (), R)
如果 (P。横向位置 < R左边 或 P。横向位置 > R右边 或 P。纵向位置 < R顶边 或 P。纵向位置 > R底边)
程_是否离开窗体 = 真
。
否则
程_是否离开窗体 = 假
' 本源码来自易语言资源网(www5A5X。com)
调试输出 (“在”)
如果结束
。如果 (程_是否离开窗体)
时钟1
时鍾周期 = 0
。判断循环首 (程_透明度 ≠ 0)
程_透明度 = 程_透明度 - 5
设置窗口透明度 (_启动窗口取窗口句柄 (), 程_透明度)
' 本源码来自易语言资源网(www。
5A5Xcom)
延時 (100)
处理事件 ()
。判断循环尾 ()
否则
。如果结束
版本 2
。
数据类型 坐标_, , POINTAPI
成员 横向位置, 整数型, , , x,横向位置
成员 纵向位置, 整数型, , , y,纵向位置
數据类型 矩形_, , RECT
。
成员 左边, 整数型, , , Left
成员 顶边, 整数型, , , Top
。成员 右边, 整数型, , , Right
成员 底边, 整数型, , , Bottom
。
版本 2
DLL命令 取鼠标位置_, 整数型, "user32", "GetCursorPos"
。参数 位置, 坐标_
DLL命令 取窗口矩形_, 整数型, "user32", "GetWindowRect"
。
参数 窗口句柄, 整数型
参数 矩形区域, 矩形_
2。加个时钟判断
版本 2
。子程序 _时钟1_周期事件
如果真 (_启动窗口。
顶边 < 5)
? ?_启动窗口顶边 = 0 - _启动窗口。高度 + 5
如果真结束
。子程序 __启动窗口_鼠标位置被移动, 逻辑型
参数 横向位置, 整数型
。
参数 纵向位置, 整數型
参数 功能键状态, 整数型
。如果真 (_启动窗口顶边 < 5)
? ?_启动窗口。顶边 = 0
全部