access:API使用集锦-钱玉炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> ADP及SQL SERVER


access:API使用集锦

发表时间:2007/11/6 8:54:48 评论(0) 浏览(7010)  评论 | 加入收藏 | 复制
   
摘 要:Access:API使用集锦
正 文:

 有时候你需要记下每次Windows开启和关闭的时间,下面这个小程序就可以完成这个功能,你可以把它放在Windows开始菜单的“启动”文件夹里面,这样当你进入Windows时,这个小程序就会自动启动(不可见),并在你指定的文件中写下当时的时间,在你推出Windows系统时,小程序会关闭并记下离开的时间,并关闭记录文件。

Private Sub Form_Load()

Left = -10000

Top = -10000

Open "c:\apps\log.txt" For Append As #1

Print #1, "On: " & CStr(Now)

Close #1

End Sub


Private Sub Form_Unload(Cancel As Integer)

Open "c:\apps\log.txt" For Append As #1

Print #1, "Off:" & CStr(Now)

Close #1

End

End Sub



怎样关闭一个正在运行的程序

  你可以使用API函数FindWindow和PostMessage去寻找指定的窗口,并关闭它。下面的例子教给你怎样找到并关掉一个Caption为“Caluclator”的程序。


Dim winHwnd As Long

Dim RetVal As Long

winHwnd = FindWindow(vbNullString, "Calculator")

Debug.Print winHwnd

If winHwnd <> 0 Then

RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)

If RetVal = 0 Then

MsgBox "置入消息错误!"

End If

Else

MsgBox "Calculator没有打开!"

End If


为了让以上的代码工作,你必须在模块文件中什么以下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坐标?

建立一个新的模块文件“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

Access软件网交流QQ群(群号:198465573)
 
 相关文章
API 函数集锦  【竹笛  2007/10/18】
API函数教程系列(一)  【UMVSOFT整理  2007/12/28】
API函数手册  【UMVSOFT整理  2008/3/10】
VB API 中级入门(接VB API初级入门)(一)  【UMVSOFT整理  2008/5/6】
VB API 中级入门(二)  【UMVSOFT整理  2008/5/6】
[教程]API教程一  【UMVsoft  2009/1/22】
Windows API函数大全  【麥田  2012/1/4】
API操作任务栏  【叶海峰  2012/9/13】
Access利用api实现打开/关闭光驱  【zhengjin  2013/11/13】
常见问答
技术分类
相关资源
文章搜索
关于作者

钱玉炜

文章分类

文章存档

友情链接