040101.htm
来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 163 行
HTM
163 行
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">API函数</a></td>
</tr>
<tr>
<td width="100%">
<p align="center"><font size="2">鼠标类函数</font></td>
</tr>
<tr>
<td width="100%"><br>
<font size="2">得到当前鼠标指针的坐标：GetCursorPos函数<br>
声明：<br>
public Type POINTAPI<br>
x As Long<br>
y As Long<br>
End Type<br>
Public Declare Function GetCursorPos Lib "user32" _<br>
(lpPoint As POINTAPI) As Long 参数缺省为byref指针传递 <br>
调用：先声明一个自定义类型变量： Dim z As POINTAPI<br>
Private Sub Timer1_Timer()<br>
GetCursorPos z 注：这里z是引用地址传递，其值改变，就象"返回值"<br>
Label1.Caption = z.x<br>
Label2.Caption = z.y<br>
End Sub<br>
参数lpPoint返回鼠标在屏幕上坐标（不限于程序窗体），如将鼠标指针移到屏幕左上角时，z.x=0,z.y=0,而鼠标移到屏幕右下角时，z.x=639;z.y=477<br>
===========================================================<br>
设置鼠标在屏幕上的坐标 ： SetCursorPos函数<br>
声明：<br>
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long<br>
调用如：Private Sub Command1_Click()<br>
Call SetCursorPos(600, 100) 将鼠标定位到屏幕(600，100)处。<br>
End Sub<br>
很简单，注：屏幕是以象素为单位的（与屏幕分辨率设定有关）。不是缇。 <br>
==========================================================<br>
自动按下鼠标按纽：mouse_event过程函数<br>
该过程能在程序中模拟手工按下或抬起鼠标，移动鼠标的操作，声明：<br>
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)<br>
一般只用它的第1个参数，指明按下或抬起哪个按纽，如果要模拟鼠标移动，则要用到第2，3个参数dx和dy, 而最后面两个参数始终不用。<br>
第1个参数dwFlags的可能设置值如下：<br>
MOUSEEVENTF_LEFTDOWN=&H2： 模拟鼠标左键按下 <br>
MOUSEEVENTF_LEFTUP ：模拟鼠标左键抬起 <br>
MOUSEEVENTF_RIGHTDOWN： 模拟鼠标右键按下 <br>
MOUSEEVENTF_RIGHTUP ：模拟鼠标右键抬起 <br>
MOUSEEVENTF_ABSOLUTE=&H8000： 由参数dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元 <br>
MOUSEEVENTF_MOVE=&H1 ：移动鼠标 <br>
调用如：在屏幕上指定位置按下鼠标左键：<br>
Public Const MOUSEEVENTF_LEFTDOWN = &H2<br>
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long<br>
Private Sub Timer1_Timer()<br>
SetCursorPos 300, 20<br>
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&<br>
End Sub<br>
模拟鼠标移动需要设置其dx和dy参数来确定鼠标位置，这时第1个参数用MOUSEEVENTF_MOVE加上MOUSEEVENTF_ABSOLUTE组合，如下：<br>
Public Const MOUSEEVENTF_MOVE = &H1<br>
Public Const MOUSEEVENTF_ABSOLUTE = &H8000 <br>
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, 65535, 65535, 0&, 0& '移动鼠标<br>
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '按下鼠标<br>
这样可省去用SetCursorPos函数，不过它不以象素为度量单位，而是将长宽分别平分为65535个鼠标位置点，要注意。<br>
补充说明：<br>
参数dx-- Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动 <br>
参数dy-- Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动<br>
==============================================<br>
限制鼠标活动区域函数：ClipCursor函数<br>
限制光标只能在参数lpRect给出的矩形区域内运动。声明：<br>
Public Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long<br>
参数lpRect声明为RECT型，RECT的声明如下：<br>
Public Type RECT<br>
Left As Long<br>
Top As Long Left,Top为左上角坐标。<br>
Right As Long<br>
Bottom As Long Right,Bottom为右下角坐标。<br>
End Type<br>
注：以上坐标使用的是屏幕坐标。<br>
调用如：<br>
Dim lxnRect As RECT<br>
Private Sub Form_Click()<br>
Static a As Boolean<br>
a = Not a<br>
If a = True Then 活动范围为Form1<br>
lxnRect.Left = Form1.Left \ Screen.TwipsPerPixelX<br>
lxnRect.Top = Form1.Top \ Screen.TwipsPerPixelY<br>
lxnRect.Right = (Form1.Left + Form1.Width) \ Screen.TwipsPerPixelX<br>
lxnRect.Bottom = (Form1.Top + Form1.Height) \ Screen.TwipsPerPixelY<br>
ClipCursor lxnRect<br>
Else 活动范围为全屏幕<br>
lxnRect.Left = 0<br>
lxnRect.Top = 0<br>
lxnRect.Right = Screen.Width \ Screen.TwipsPerPixelX<br>
lxnRect.Bottom = Screen.Height \ Screen.TwipsPerPixelY<br>
ClipCursor lxnRect<br>
End If<br>
End Sub<br>
上例是这样的，在窗体上单击时，鼠标活动限在此窗体，再单击，则恢复为全屏幕活动范围。 <br>
注：在VB中，所有尺寸都化为缇了（包括screen对象的width,height)，而在API中，所有尺寸都为象素，因此，要统一单位，用转换比例screen对象的TwipsPerPixelX和TwipsPerPixelY(好象值就等于15。不知是否固定不变。)<br>
======================================<br>
显示/隐藏鼠标指针：ShowCursor函数<br>
该函数可用于隐藏鼠标，但鼠标仍然可"看不见地移动"。声明：<br>
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long<br>
参数很简单：bShow--当为true且"函数"返回值大于等于0时，显示指针，当为false且"函数"返回值小于0时，隐藏指针。<br>
注：该函数的函数返回值需要注意：它返回"显示计数"，windows维持着一个内部显示计数；倘若bShow为TRUE，那么每调用一次这个函数，计数就会递增1；反之，如bShow为FALSE，则计数递减1。只有在这个计数大于或等于0的情况下，指针才会显示出来。而小于0时则隐藏，因此，不单是简单地把bShow设为false就可以了。不然要想再使指针显示出来，可能会遇到困难。如：<br>
Dim a As Boolean<br>
Private Sub Form_Click()<br>
a = False<br>
x = ShowCursor(a)<br>
Print x<br>
End Sub<br>
如果我们多次单击form窗体，则x的值会变为-1，-2，-3，-4……这时，如果再简单地把a改为true,则单击1次时指针不会重显，x的值会变为-3，-2，-1，0……只有多次单击使x等于大于0的时候，指针才会重显。<br>
===========================================<br>
在VB中捕捉mouse_leave事件：SetCapture和ReleaseCapture函数<br>
SetCapture函数：设置鼠标捕获到指定窗口，使该窗口接收所有鼠标输入。<br>
ReleaseCapture函数：释放鼠标捕获。<br>
声明：<br>
Declare Function SetCapture Lib "user32"(ByVal hwnd As Long) As Long<br>
Declare Function ReleaseCapture Lib "user32"() As Long<br>
参数：hwnd--要接收所有鼠标输入的窗口句柄。<br>
调用如（捕捉command2的mouseleave"事件"：<br>
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>
Text1.Text = X & "," & Y<br>
Dim MouseOver As Boolean<br>
MouseOver = (0 <= X) And (X <= Command2.Width) And (0 <= Y) And (Y <= Command2.Height) 这里要注意，一个控件的mouse类事件返回的X，Y坐标值是此控件自身的窗口坐标，不是Form的坐标！所以左上角都是（0，0）-右下角(width,height).<br>
If MouseOver Then 当鼠标在command2上时，<br>
Command2.BackColor = RGB(255, 255, 0)<br>
SetCapture Command2.hwnd 使command2窗口响应鼠标输入。<br>
Else 当鼠标离开时，以下写mouseleave的内容。<br>
Command2.BackColor = RGB(120, 120, 120)<br>
ReleaseCapture command2不再响应鼠标动作<br>
End If<br>
End Sub</font>
<p align="center">
<br>
< <a href="030105.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="040102.htm">下一页</a>
><br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?