【VB宣告】 Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer 【說明】 判斷函式呼叫時指定虛擬鍵的狀態 【返回值】 Long，自對GetAsyncKeyState函式的上一次呼叫以來，如鍵已被按過，則位0設為1；否則設為0。如鍵目前處於按下狀態，則位15設為1；如抬起，則為0。微軟的win32手冊指出：倘若輸入焦點從屬於與呼叫函式的輸入執行緒不同的另一個輸入執行緒，則返回值為0（例如，一旦另一個程式擁有焦點，則它應返回零）。證據顯示，函式實際是在整個系統的範圍內工作的 【備註】 如指定了VK_LBUTTON 或 VK_RBUTTON，按鈕的狀態就會根據實際的按鈕報告——無論是否曾用SwapMouseButton函式對滑鼠的位置進行了交換。win32提供了額外的一些虛擬鍵碼，比如VK_LSHIFT 和 VK_RSHIFT，以便在兩個完全一樣的鍵中區分出左右（也包括Ctrl 和 Alt） 【引數表】 vKey ---- Long，欲測試的虛擬鍵的鍵碼 用迴圈，判斷出每個鍵的狀態