vb编程：锁定鼠标光标位置

1、启动【vs2010】，新建一个【vb】窗口项目。

2、编辑代码：=============================================Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer Public Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long) Public Declare Function SetCursorPos Lib "user32" (ByVal Z As Integer, ByRef X As Integer) As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 时钟.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 时钟.Tick If GetAsyncKeyState(112) = -32767 Then ExitProcess(0) End If SetCursorPos(100, 100) End SubEnd Class============================================ps：尽量自己手打一遍，加深印象。

4、代码解析：If GetAsyncKeyState(112) = -32767 Then ExitProcess(0) End If SetCursorPos(100, 100)’112整数值代表”键F1“’-32767则是进制转换过来的值，F1被按下时，函数的返回值’翻译：如果函数GetAsyncKeyState返回值为-32767，则调用函数ExitProcess结束自身进程，反之调用函数SetCursorPos锁定鼠标光标横纵位置（100，100）

5、运行后大图。ps：我在窗口上加了个标签，可有可无。