【晕】鼠标事件的逻辑问题。
VBAHZ 2005-11-01 10:34:59 想做这样一个功能:在一个Label控件上(以下都是指这个控件)
1、单独按下左键时,执行 Debug.Print "Left Down"
2、单独按下左键不移动,放开时执行 Debug.Print "Left Click"
3、单独按下右键不移动,放开时执行 Debug.Print "Right Click"
4、单独按下左键并拖动鼠标,只有当移动X水平距离(与按下时的X比较)大于50时,
进入拖动状态,Caption上开始显示当前的X值
5、此时(拖动距离>50),当放开左键时,执行 Debug.Print "Left Is" , X
6、当左键为按下状态,拖动距离>50时,若再按下右键,
则恢复Caption为空,并退出拖动状态(不再显示X轨迹)
7、当左键为按下状态,不移动,再按下右键,执行 Debug.Print "Left & Right Down"
然后,也同6一样,恢复Caption,退出拖动状态。
现在的问题是:
如何将这些功能做在同一个控件上?
2、3功能应该是单独触发的,就是说一旦拖动鼠标水平距离>50时,
无论再放开左键还是右键,都不会触发它了。
头好大,晕了,还请大家指教,谢谢!