获取鼠标指针状态
如何得到指针是正常,等待,或还是拖动状态?求赐教
[解决办法]
在控件的事件中，有於鼠标事件
每事件可以得到鼠标
[解决办法]
http://download.csdn.net/detail/veron_04/3629729鼠标状态的区分
1、是否移动 这一点可以通过GetCursorPos来获取鼠标的位置，和上次的对比，就能得知鼠标是否移动
2、是否有点击或使用滚轮 这一点可以使用Hook来获取，参阅：


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

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

Option Explicit

Private Sub Form_Load()
        
End Sub
'MousePointer 3￡êy
'
'
'3￡êy ?μ ?èê?
'ccDefault 0 ￡¨è±ê?￡?óé???ó???¨μ?D?×′?￡
'CcArrow 1 ?yí?￡
'CcCross 2 ê?×???￡¨ê?×???????￡??￡
'CcIbeam 3 Dí±ê?￡
'CcIcon 4 í?±ê￡¨?y?D?à?μ?D???é￡??￡
'CcSize 5 3?′???￡¨????????÷±±μ??????yí￡??￡
'ccSizeNESW 6 óòé?-×ó??3?′???￡¨?????±±oí?÷?????yí￡??￡
'ccSizeNS 7 ′1?±3?′???￡¨?????±±??òμ????yí￡??￡
'ccSizeNWSE 8 ×óé?-óò??3?′????￡
'ccSizeEW 9 ????3?′???￡¨??????÷??òμ??yí￡??￡
'ccUpArrow 10 ?òé??yí?￡
'ccHourglass 11 é3??￡¨μè′y￡??￡
'ccNoDrop 12 2??êDí????￡
'ccArrowHourglass 13 ?yíoíé3???￡
'cc ArrowQuestion 14 ?yíoí?êo??￡
'ccSizeAll 15 ???ò3?′????￡
'ccCustom 99 MouseIcon ê?D????¨μ?×??¨ò?í?±ê?￡

Private Sub Timer1_Timer()
    Select Case MousePointer
        Case vbHourglass
        Case ccDefault
        
    End Select
End Sub