- 浏览: 169151 次
- 性别:
- 来自: 广州
文章分类
最新评论
-
xiangyufangai:
很好很强大膜拜中哈哈!!
VB 两个字符串处理函数(类似Left/Mid/Right/Split的结合) -
hellohank:
这个……叫摘要算法,不叫加密算法~
Java实现的加密工具类(支持MD5和SHA) -
NIUCH1029291561:
接口有问题奥
网银在线支付接口和应用 -
yeuego:
能幫你就行了
MySQL索引分析 -
ForgiDaved:
很给力的介绍。记得前段时间给一个系统加功能,设计的表没有 ...
MySQL索引分析
得到当前鼠标指针的坐标:GetCursorPos函数
声明:
public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long 参数缺省为byref指针传递
调用:先声明一个自定义类型变量: Dim z As POINTAPI
Private Sub Timer1_Timer()
GetCursorPos z 注:这里z是引用地址传递,其值改变,就象"返回值"
Label1.Caption = z.x
Label2.Caption = z.y
End Sub
参数lpPoint返回鼠标在屏幕上坐标(不限于程序窗体),如将鼠标指针移到屏幕左上角时,z.x=0,z.y=0,而鼠标移到屏幕右下角时,z.x=639;z.y=477
===========================================================
设置鼠标在屏幕上的坐标 : SetCursorPos函数
声明:
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
调用如:Private Sub Command1_Click()
Call SetCursorPos(600, 100) 将鼠标定位到屏幕(600,100)处。
End Sub
很简单,注:屏幕是以象素为单位的(与屏幕分辨率设定有关)。不是缇。
==========================================================
自动按下鼠标按纽:mouse_event过程函数
该过程能在程序中模拟手工按下或抬起鼠标,移动鼠标的操作,声明:
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
一般只用它的第1个参数,指明按下或抬起哪个按纽,如果要模拟鼠标移动,则要用到第2,3个参数dx和dy, 而最后面两个参数始终不用。
第1个参数dwFlags的可能设置值如下:
MOUSEEVENTF_LEFTDOWN=&H2: 模拟鼠标左键按下
MOUSEEVENTF_LEFTUP :模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN: 模拟鼠标右键按下
MOUSEEVENTF_RIGHTUP :模拟鼠标右键抬起
MOUSEEVENTF_ABSOLUTE=&H8000: 由参数dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元
MOUSEEVENTF_MOVE=&H1 :移动鼠标
调用如:在屏幕上指定位置按下鼠标左键:
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Timer1_Timer()
SetCursorPos 300, 20
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
End Sub
模拟鼠标移动需要设置其dx和dy参数来确定鼠标位置,这时第1个参数用MOUSEEVENTF_MOVE加上MOUSEEVENTF_ABSOLUTE组合,如下:
Public Const MOUSEEVENTF_MOVE = &H1
Public Const MOUSEEVENTF_ABSOLUTE = &H8000
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, 65535, 65535, 0&, 0& '移动鼠标
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '按下鼠标
这样可省去用SetCursorPos函数,不过它不以象素为度量单位,而是将长宽分别平分为65535个鼠标位置点,要注意。
补充说明:
参数dx-- Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定水平方向的绝对位置或相对运动
参数dy-- Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定垂直方向的绝对位置或相对运动
==============================================
限制鼠标活动区域函数:ClipCursor函数
限制光标只能在参数lpRect给出的矩形区域内运动。声明:
Public Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long
参数lpRect声明为RECT型,RECT的声明如下:
Public Type RECT
Left As Long
Top As Long Left,Top为左上角坐标。
Right As Long
Bottom As Long Right,Bottom为右下角坐标。
End Type
注:以上坐标使用的是屏幕坐标。
调用如:
Dim lxnRect As RECT
Private Sub Form_Click()
Static a As Boolean
a = Not a
If a = True Then 活动范围为Form1
lxnRect.Left = Form1.Left \ Screen.TwipsPerPixelX
lxnRect.Top = Form1.Top \ Screen.TwipsPerPixelY
lxnRect.Right = (Form1.Left + Form1.Width) \ Screen.TwipsPerPixelX
lxnRect.Bottom = (Form1.Top + Form1.Height) \ Screen.TwipsPerPixelY
ClipCursor lxnRect
Else 活动范围为全屏幕
lxnRect.Left = 0
lxnRect.Top = 0
lxnRect.Right = Screen.Width \ Screen.TwipsPerPixelX
lxnRect.Bottom = Screen.Height \ Screen.TwipsPerPixelY
ClipCursor lxnRect
End If
End Sub
上例是这样的,在窗体上单击时,鼠标活动限在此窗体,再单击,则恢复为全屏幕活动范围。
注:在VB中,所有尺寸都化为缇了(包括screen对象的width,height),而在API中,所有尺寸都为象素,因此,要统一单位,用转换比例screen对象的TwipsPerPixelX和TwipsPerPixelY(好象值就等于15。不知是否固定不变。)
======================================
显示/隐藏鼠标指针:ShowCursor函数
该函数可用于隐藏鼠标,但鼠标仍然可"看不见地移动"。声明:
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
参数很简单:bShow--当为true且"函数"返回值大于等于0时,显示指针,当为false且"函数"返回值小于0时,隐藏指针。
注:该函数的函数返回值需要注意:它返回"显示计数",windows维持着一个内部显示计数;倘若bShow为TRUE,那么每调用一次这个函数,计数就会递增1;反之,如bShow为FALSE,则计数递减1。只有在这个计数大于或等于0的情况下,指针才会显示出来。而小于0时则隐藏,因此,不单是简单地把bShow设为false就可以了。不然要想再使指针显示出来,可能会遇到困难。如:
Dim a As Boolean
Private Sub Form_Click()
a = False
x = ShowCursor(a)
Print x
End Sub
如果我们多次单击form窗体,则x的值会变为-1,-2,-3,-4……这时,如果再简单地把a改为true,则单击1次时指针不会重显,x的值会变为-3,-2,-1,0……只有多次单击使x等于大于0的时候,指针才会重显。
===========================================
在VB中捕捉mouse_leave事件:SetCapture和ReleaseCapture函数
SetCapture函数:设置鼠标捕获到指定窗口,使该窗口接收所有鼠标输入。
ReleaseCapture函数:释放鼠标捕获。
声明:
Declare Function SetCapture Lib "user32"(ByVal hwnd As Long) As Long
Declare Function ReleaseCapture Lib "user32"() As Long
参数:hwnd--要接收所有鼠标输入的窗口句柄。
调用如(捕捉command2的mouseleave"事件":
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X & "," & Y
Dim MouseOver As Boolean
MouseOver = (0 <= X) And (X <= Command2.Width) And (0 <= Y) And (Y <= Command2.Height) 这里要注意,一个控件的mouse类事件返回的X,Y坐标值是此控件自身的窗口坐标,不是Form的坐标!所以左上角都是(0,0)-右下角(width,height).
If MouseOver Then 当鼠标在command2上时,
Command2.BackColor = RGB(255, 255, 0)
SetCapture Command2.hwnd 使command2窗口响应鼠标输入。
Else 当鼠标离开时,以下写mouseleave的内容。
Command2.BackColor = RGB(120, 120, 120)
ReleaseCapture command2不再响应鼠标动作
End If
End Sub
发表评论
-
vb 启动外部程序并且模拟鼠标点击
2011-03-09 13:28 1092Imports System.Runtime.InteropS ... -
VB 列出SQL数据库中所有表及字段信息
2011-03-09 13:24 1111程序思想:用Select name From sysobje ... -
VB 纯代码实现Timer控件的功能
2011-03-09 13:23 1255本博客有一篇类似的文章《VB 中运用 TimeSetEvent ... -
VB 控制音量
2011-03-09 13:22 1206'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换. ... -
拦截 VB TextBox 双击消息
2011-03-09 13:22 930我们都知道在VB中TextBox默认是没有双击消息过程的(也就 ... -
VB 获取/设置屏幕分辨率
2011-03-09 13:21 1074Option ExplicitPrivate Decla ... -
VB 将数据快速导入EXCEL
2011-03-09 13:21 1003Public Function ToExcel()On ... -
VB 建立快捷方式
2011-03-09 13:20 768Private Declare Function fCr ... -
VB 获取快捷方式原文件路径
2011-03-09 13:20 898'此方法不需要引用IShellLink.Private ... -
VB 的一组字符串转换函数
2011-03-09 13:20 763Public Function chrConvert(s ... -
VB 在浏览目录时指定初始目录
2011-03-09 13:19 985'VB也可以使用CallBack,下面是一个例子: '先 ... -
VB 获得鼠标滚轮的事件
2011-03-09 13:18 959'窗体代码Private Sub Form_Load() ... -
VB 比较两组字符串
2011-03-09 13:18 1246【方法一】 StrComp(string1, Stri ... -
VB 用API下载文件实例
2011-03-09 13:17 777'########################### ... -
VB 窗口处理技巧大全
2011-03-09 13:17 762VB提供了API函数SetWindowLong和GetWind ... -
VB 实现屏幕右下角浮出式消息窗口,透明淡出效果。
2011-03-09 13:16 935'任务栏高度[此部分相关代码转载自 枕善居]Privat ... -
VB Filter 函数用法
2011-03-09 13:16 1911例子1:Dim aa(10) As StringDim bbD ... -
VB 在EXPLORER进程崩溃之后重建托盘图标
2011-03-09 13:15 825重点为:向系统注册“TaskbarCreated”消息 ... -
Shell 调用程序后等待该程序结束后返回继续
2011-03-09 13:15 1199方法1: Private Declare Functi ... -
VB 最简单的WAV声音或音乐文件播放的代码
2011-03-09 13:14 1350'最简单的WAV声音或音乐文件播放的代码'API声明Pr ...
相关推荐
Axure元件函数窗口函数鼠标函数和数字函数的介绍.pdfAxure元件函数窗口函数鼠标函数和数字函数的介绍.pdfAxure元件函数窗口函数鼠标函数和数字函数的介绍.pdfAxure元件函数窗口函数鼠标函数和数字函数的介绍....
C语言鼠标操作方法及源码 鼠标函数中断 鼠标函数源代码
一个以C语言钩子函数来实现鼠标操作的demo
CListCtrl的主要事件及鼠标响应函数,CListCtrl的主要事件及鼠标响应函数
这是我在做一个简单的俄罗斯方块游戏时碰到的问题,在这里记录一下以便不再出现这种问题。
这个函数很方便 只要在while中添加就可 其中mx,my是鼠标的坐标 还有点击的返回值 1是右键单击,2是左键单击,3是两件一块按下,4是左键按下,5是右键按下;
flash 获取鼠标信息函数,flash开发环境
这个利用 钩子函数监听鼠标和键盘时间的例子
介绍了VC中MFC主要的关于鼠标和光标的处理函数。
该资源为BC环境下运行的鼠标函数,已通过编译,可嵌合在程序中直接运行
利用钩子制作登陆界面,屏蔽鼠标键盘,并且覆盖桌面
包含全部JS触发函数,鼠标、键盘、各种触发函数,就是为了凑字数
Qt使用鼠标模拟函数mouse_event和按键模拟函数keybd_even实现网页刷新功能 https://blog.csdn.net/qq_29542611/article/details/83421552
鼠标、光标控制函数
Delphi 钩子函数创建鼠标操作的演示,作者:冉林仓,测试内容包括三个:DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。 安装与调试说明: 如果制作的演示程序工作不正常,请注意修改HKPROC.PAS,...
VBA鼠标键盘钩子类.xlsm
带汉字及鼠标支持的多色深DOS图形函数库,汉子支持函数接口TR_CHC.H,鼠标支持函数结构TR_MOUSE.H,图形图像函数结构TR_SVGA.H,图标库TR_CURSOR.H;总括头文件TR_GRH.H,通用头文件TR_COMM.H。提供了一个图标制作...
JS函数实现鼠标指向后带图片的提示效果JS函数实现鼠标指向后带图片的提示效果
鼠标移动测试
Labview鼠标自动移动点击。Labview通过调用WINAPI函数mouse_event()完成鼠标自动操作。