从品牌网站建设到网络营销策划,从策略到执行的一站式服务
某些键,如 Tab、Return、Esc 和箭头键,由控件自动处理。所以当你的窗体添加了其它控件如按钮,checkbox等,form的keydown事件就触发不了,为使这些键引发窗体的KeyDown事件,你需要重写form.ProcessDialogKey函数,这个函数可以在消息预处理期间 处理对话字符,例如TAB、RETURN、ESCAPE和箭头键等,以下是我重写了这个事件来处理方向键,你需要把它放到你的代码里:
作为一家“创意+整合+营销”的成都网站建设机构,我们在业内良好的客户口碑。创新互联提供从前期的网站品牌分析策划、网站设计、网站制作、网站设计、创意表现、网页制作、系统开发以及后续网站营销运营等一系列服务,帮助企业打造创新的互联网品牌经营模式与有效的网络营销方法,创造更大的价值。
Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean
If keyData = Keys.Left Or keyData = Keys.Right Or keyData = Keys.Up Or keyData = Keys.Down Then
Return False'如果是方向键返回FALSE,意思是继续执行form的keydown事件.
Else
Return MyBase.ProcessDialogKey(keyData)
End If
End Function
这种情况是无法避免的,因为双击是由两次单击组成的,如果你要求系统只响应双击事件不响应单击事件,那么系统在接收到键盘发来的一次单击动作时,它就会暂时停顿下来,因为它不知道紧接着会不会还有一次单击动作,如果有就是双击,如果没有就是单击。这个过程虽说是“一眨眼”,但也足以使单击事件产生明显的延时(举个极端的例子:假如你把双击的时间间隔设为10秒,那么即使没有双击,控件的单击事件也要在10秒后才触发!),会严重影响用户体验,所以系统不可能为了双击事件而自动屏蔽单击事件的。因此,通常情况下,单击事件和双击事件最好不要同时使用,也就是说用了单击就不要再用双击,反之用了双击也不要再用单击。
你需要在 click 事件运行的起始部位
把按钮 设置成 Enable=false
代码运行结束后 再设回 true
SetCursorPos(xr,yr)
sleep (1000) '移动鼠标后加个延时 先加大一点的没关系 测试有效后再缩短延时时间
其他行的sleep 也如此 再者你的leftdown 和 up 常量有先赋值吧
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图