获取当前鼠标光标的形状图象及形状代码(VB6.0代码)

QQ上有朋友问到这个功能,本以为搜索一下就能解决,结果发现网上好象还没有现成的,倒是按键精灵有一个GetCursorShape函数,可以取得当前光标的形状代码.

于是查了一下光标相关API,做了一个VB6版的封装,效果图如下:



使用也很简单,DrawCursorImage是绘制光标图象到指定的DC上,而GetCursorShapeCode就是获取光标形状代码,返回值是LoadCursor的系统参数,只处理了15个状态,所以别的状态要自己添加常量.

模块就是封装了GetCursorInfo,再辅以LoadCursor得到句柄并保存到表,以及调用DrawIcon绘制到指定DC上.

整个示例工程下载:

点击下载此文件

上一篇: 还没注意,这百年一遇的超级光棍节就过去了,哈哈.
下一篇: 12月4号照婚纱照了
文章来自: 本站原创