常数 值 按钮

vbok 1 o k

vbcancel 2 cancel

vbabort 3 abort

vbretry 4 retry

vbignore 5 Ignore

vbyes 6 yes

vbno 7 no

可根据此函数的返回值判断用户按下了哪个按扭.

如if msgbox (“小欣无敌”,vbyesno,”这一个演示”) = vbyes then ??.

API函数 鼠标类函数

得到当前鼠标指针的坐标：GetCursorPos函数 声明：

public Type POINTAPI x As Long y As Long End Type

Public Declare Function GetCursorPos Lib \(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 \As Long

调用如：Private Sub Command1_Click()

Call SetCursorPos(600, 100) 将鼠标定位到屏幕(600，100)处。 End Sub

很简单，注：屏幕是以象素为单位的（与屏幕分辨率设定有关）。不是缇。 ========================================================== 自动按下鼠标按纽：mouse_event过程函数

该过程能在程序中模拟手工按下或抬起鼠标，移动鼠标的操作，声明：

Public Declare Sub mouse_event Lib \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 \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 \参数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 \

参数很简单：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 \Declare Function ReleaseCapture Lib \参数：hwnd--要接收所有鼠标输入的窗口句柄。 调用如（捕捉command2的mouseleave\事件\：

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = X & \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

键盘类函数

----------------------------------

获得当前整个键盘上所有按键的按下状态:GetKeyBoardState函数

这个函数获得在调用时一刹那，整个键盘上哪些（个）键正处于按下状态。它传入一个包含256个元素的字节数组，在实参中写入数组的第一个元素地址，就会返回整个键盘上256个虚拟键的对应状态到字节数组的相应下标元素中。声明：

Declare Function GetKeyboardState Lib \调用如：