| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1276 人关注过本帖
标题:初始化currentX和currentY有关问题
只看楼主 加入收藏
水乡男孩
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-5-9
收藏
 问题点数:0 回复次数:3 
初始化currentX和currentY有关问题
检测鼠标移动VB中有一个检测鼠标移动的对象事件MouseMove事件。MouseMove事件通常在应用程序启动时就会触发,有时在鼠标并未移动的情况下,MouseMove事件仍有可能被触发。因此如果在程序中直接用MouseMove事件检测鼠标是否发生了移动,并不能正确反映鼠标的移动状况。应该在MouseMove事件中编写代码加以控制。

  为了正确反映鼠标的移动,先用变量记录下程序运行时的鼠标当前位置,然后用另外一组变量记录鼠标移动后的位置,当鼠标移动前后的位置差大于一定范围时,触发MouseMove事件。编写代码如下:

Private Sub Form-MouseMove(Button As Integer,shift As Inteqer,X As Single,Y As Single)
 Static currentX,currentY As Single
 Dim orignX,orignY As Single
 ’把当前的鼠标值赋给orignX和orignY
 orignX=X
 orignY=Y
 ’初始化currentX和currentY
 if currentX=0 and currentY=0 Then  
  currentX=orignX  
  currentY=orignY 
  Exit Sub
 Endif
 ’当鼠标移动大于一个象素时,显示鼠标光标并退出程序
 If Abs(oriqnX-currentX)>1 or Abs(orignY-currentY)>1Then 
  X=ShowCursor(True) 
  End
 Endif
EndSub
在以上的代码中有一句是初始化currentX和currentY的,假如现在我的currentX和currentY的值不是同时为零,程序是不是就会出问题,那么currentX和currentY的值应该为多少
搜索更多相关主题的帖子: currentX currentY 
2006-05-25 09:47
dragonfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:1024
专家分:0
注 册:2006-3-20
收藏
得分:0 
不用这么复杂吧?
dim OldX as single
dim OldY as single
Private Sub Form-MouseMove(Button As Integer,shift As Inteqer,X As Single,Y As Single)

 ’当鼠标移动大于一个象素时,显示鼠标光标并退出程序
 If Abs(OLdX-X)>1 or Abs(OldY-Y)>1Then 
'  X=ShowCursor(True) 这句啥意思?
 End
OldX = X
OldY = Y
EndSub
或者如果你不想让鼠标第一次移动时执行什么代码,那就设置个变量isFirtMove,在程序里加判断

2006-05-25 12:58
水乡男孩
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-5-9
收藏
得分:0 
可是我问的问题,你还没有回答了,大虾,你可以回答我的问题么
2006-05-25 21:44
dragonfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:1024
专家分:0
注 册:2006-3-20
收藏
得分:0 
说实话,我没怎么看明白你的问题,
“假如现在我的currentX和currentY的值不是同时为零,程序是不是就会出问题,那么currentX和currentY的值应该为多少”这句话什么意思?出现了什么样的问题呢?

2006-05-26 13:17
快速回复:初始化currentX和currentY有关问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022115 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved