VB 版 (精华区)

发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 利用VB5.0设计屏幕保护程序 (4) 
发信站: 哈工大紫丁香 (2000年05月31日19:38:14 星期三), 转信

发信人: esc (书剑飘零), 信区: VB
标  题: 利用VB5.0设计屏幕保护程序 (4)
发信站: 虎踞龙盘东南站 (Fri Aug 20 16:01:26 1999), 转信

3、如何检测鼠标的移动

MouseMove事件用来检测鼠标的移动，当应用程序启动时
甚至鼠标实际上并未移动的情况下，MouseMove事件都会触
发一次。所以第一次触发MouseMove事件时，只是记录鼠标
当前位置，仅当鼠标真正从其起始位置移开时，才终止屏
幕保护程序。具体实现代码如下：

Private Sub Form_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Static XLast, YLast As Single
Dim XNow, YNow As Single

'记录当前位置

XNow = X

YNow = Y

'第一次触发MouseMove事件，记录当前位置

If XLast = 0 And YLast = 0 Then
XLast = XNow
YLast = YNow
Exit Sub
End If

'仅当鼠标移动足够迅速（一次2个像素以上）才恢复屏幕

If Abs(XNow-XLast) > 2 Or Abs(YNow - YLast) > 2 Then
QuitFlag = True
End If
End Sub
--
既然要注定流浪，风又何必苦苦推难。
    既然帆想要靠岸，海又何必处处阻拦。
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]