Access API使用集锦

核心提示： 在VB中建立一个新项目文件，Form1使用默认设置.选择菜单的“Project/add Module”，Access API使用集锦(3)，建立一个新的模块文件“Moudule1”，输入以下代码声明API函数，怎样捕捉窗体的鼠标？这个技巧将向您展示如何使用捕捉光标的API函数阻止鼠标指针移出窗体，注意！：如果窗体的B

　　在VB中建立一个新项目文件，Form1使用默认设置.

　　选择菜单的“Project/add Module”，建立一个新的模块文件“Moudule1”。

　　输入以下代码声明API函数。

Option Explicit

Type POINTAPI ' Declare types

x As Long

y As Long

End Type

Declare Function GetCursorPos Lib "user32" _(lpPoint As POINTAPI) As Long ' Declare API

　　把焦点移到Form1，添加两个标签对象（Label）和一个计时器对象（Timer1），把计时器的Interval属性设为1，然后双击Form1的任何区域，在代码窗口中输入：

Option Explicit

Dim z As POINTAPI ' 声明变量

Private Sub Timer1_Timer()

GetCursorPos z ' 得到坐标

Label1 = "x: " & z.x ' 得到X坐标

Label2 = "y: " & z.y ' 得到Y坐标

End Sub

　

　　按F5运行程序，移动鼠标注意观察两个标签对象的变化。


怎样捕捉窗体的鼠标？

　　这个技巧将向您展示如何使用捕捉光标的API函数阻止鼠标指针移出窗体。

　　注意！：如果窗体的BorderStyle属性被设为sizeable（2或5），则当你改变窗体的大小时鼠标就会“逃脱”程序的监控！因此你最好把BorderStyle设为0、1、3或4。

　　步骤：