获取鼠标指针状态解决办法

获取鼠标指针状态
如何得到指针是正常,等待,或还是拖动状态?求赐教

[解决办法]
在控件的事件中，有屬於鼠标事件
每個事件參數可以得到鼠标狀態
[解决办法]
http://download.csdn.net/detail/veron_04/3629729鼠标状态的区分
1、是否移动 这一点可以通过GetCursorPos来获取鼠标的位置，和上次的对比，就能得知鼠标是否移动
2、是否有点击或使用滚轮 这一点可以使用Hook来获取，参阅：


[解决办法]
鼠标状态的区分
1、是否移动 这一点可以通过GetCursorPos来获取鼠标的位置，和上次的对比，就能得知鼠标是否移动
2、是否有点击或使用滚轮 这一点可以使用Hook来获取，参阅：

http://download.csdn.net/detail/veron_04/3629729
[解决办法]
这个状态可以读取鼠标指针的状态来获取

VB code

Option ExplicitPrivate Sub Form_Load()        End Sub'MousePointer ³£Êý'''³£Êý Öµ ÃèÊö'ccDefault 0 £¨È±Ê¡£©ÓɶÔÏó¾ö¶¨µÄÐÎ×´¡£'CcArrow 1 ¼ýÍ·¡£'CcCross 2 Ê®×ÖÏߣ¨Ê®×ÖÏßÖ¸Õ룩¡£'CcIbeam 3 Ðͱꡣ'CcIcon 4 ͼ±ê£¨Õý·½ÐÎÀïµÄС·½¿é£©¡£'CcSize 5 ³ß´çÏߣ¨·ÖÖ¸¶«ÄÏÎ÷±±µÄËÄÕë¼ýÍ·£©¡£'ccSizeNESW 6 ÓÒÉÏ-×óϳߴçÏߣ¨·ÖÖ¸¶«±±ºÍÎ÷ÄÏË«¼ýÍ·£©¡£'ccSizeNS 7 ´¹Ö±³ß´çÏߣ¨·ÖÖ¸Äϱ±·½ÏòµÄË«¼ýÍ·£©¡£'ccSizeNWSE 8 ×óÉÏ-ÓÒϳߴçÏß¡£'ccSizeEW 9 ˮƽ³ß´çÏߣ¨·ÖÖ¸¶«Î÷·½ÏòµÄ¼ýÍ·£©¡£'ccUpArrow 10 ÏòÉϼýÍ·¡£'ccHourglass 11 ɳ©£¨µÈ´ý£©¡£'ccNoDrop 12 ²»ÔÊÐí·ÅÏ¡£'ccArrowHourglass 13 ¼ýÍ·ºÍɳ©¡£'cc ArrowQuestion 14 ¼ýÍ·ºÍÎʺš£'ccSizeAll 15 ËÄÏò³ß´çÏß¡£'ccCustom 99 MouseIcon ÊôÐÔÖ¸¶¨µÄ×Ô¶¨Òåͼ±ê¡£Private Sub Timer1_Timer()    Select Case MousePointer        Case vbHourglass        Case ccDefault            End SelectEnd Sub