GetAsyncKeyState

用法:

不論程式是否得到駐點,都可以得到按鍵狀態

宣告法:

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

範例:

If GetAsyncKeyState(vbKeyA) Then
 Me.Caption =  "按下了A鍵"
Else
 Me.Caption = "沒有按下A鍵"
End If

實戰個案:

  1. 如何偵察滑鼠是否按下了開始鍵?
  2. 如何取得滑鼠在表單外時的狀態

上一頁