Access API使用集锦

核心提示： 为了让以上的代码工作，你必须在模块文件中什么以下API函数：Declare Function FindWindow Lib "user32" Alias _"FindWindowA" (ByVal lpClassName As String, _ByVal lpWindowNa

　　为了让以上的代码工作，你必须在模块文件中什么以下API函数：

Declare Function FindWindow Lib "user32" Alias _"FindWindowA" (ByVal lpClassName As String, _ByVal lpWindowName As String) As Long

Declare Function PostMessage Lib "user32" Alias _"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10

我怎样确定我的程序是否在运行？

　　把以下代码放在第一个窗体的Form_Load事件中：

If App.PrevInstance = True Then

Call MsgBox("这个程序正在运行！",_vbExclamation)

End

End If

怎样延迟一个VB程序？

　　延迟在VB中非常有意义！举个例子，有时你需要等待一个额外的过程完成，才能运行程序下面的代码。延迟使程序摆脱了CPU的运算速度对程序运行速度的影响，但是在VB中却没有延迟这个很多语言都有的现成函数，所以还要依靠API函数，请看以下的代码：

Declare Sub Sleep Lib "kernel32" _(ByVal dwMilliseconds As Long)

'延迟1秒

Call Sleep(1000)

怎样改变双击鼠标的时间间隔？

　　在较短时间里连续的点击两次鼠标就会造成鼠标双击事件。你可以调用API函数SetDoubleClickTime改变鼠标双击所需要的时间，它只有一个参数，并可精确到毫秒级。

Declare Function SetDoubleClickTime _Lib "user32" Alias "SetDoubleClickTime" _(ByVal wCount As Long) As Long

　　提示：这种改变将影响到整个操作系统。


怎样找到鼠标指针的XY坐标？

　　在很多的作图软件中都有一个小的区域显示当前屏幕上的光标位置，这利用API函数非常容易做到，下面的例子将演示使用代码如何返回当前光标的XY的坐标值。

　　步骤：