易语言组件的属性中有一项鼠标指针可以在添加组件的时候修改鼠标样式,但是这种样式局限在组件上显示,移动到其他位置后就恢复成正常鼠标样式。
我这个小程序中需要达到的效果是:按下鼠标左键后,修改鼠标样式,无论移动到屏幕任何位置都不变,直到松开左键才恢复。
实现方法:
1. 导入后缀为.cur的文件到项目中备用。(后缀为cur的文件是鼠标静态光标文件,可以在网上直接下载.cur格式文件,也可以下载jpg/png格式图片进行在线转换,如果在线转换失败,可以下载一个小工具:ArtCursors,有30天的试用期)
2. 直接上代码:
.版本 2
.支持库 spec
.子程序 _按钮_绑定窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 光标句柄, 整数型
.局部变量 光标所在位置句柄, 整数型
光标句柄 = LoadCursorFromFileA (取运行目录 () + “/pic/newCursor.cur”)
.如果 (光标句柄 > 0)
SetCursor (光标句柄)
.否则
调试输出 (“未正常获取光标句柄,错误:”, GetLastError ())
.如果结束
刚开始接触易语言,有很多API还不熟悉,这里记录加强一下记忆,如有疏漏,欢迎留言。