获取鼠标指针状态
如何得到指针是正常,等待,或还是拖动状态?求赐教
[解决办法]
在控件的事件中，有屬於鼠标事件
每個事件參數可以得到鼠标狀態
[解决办法]
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
