Access:API使用集錦

記載Windows使用的時間

　　有時候你需要記下每次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坐標？

　　在很多的作圖軟件中都有一個小的區域顯示當前屏幕上的光標位置，這利用API函數非常容易做到，下面的例子將演示使用代碼如何返回當前光標的XY的坐標值。