投稿日 | : 2004/07/07(Wed) 18:10 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : http://www.bcap.co.jp/hanafusa/ypcs/ |
タイトル | : Re^3: キー(Alt等)が押されているかの確認 |
ここの逆引きヘルプの 特殊キーの現在の状態を取得する・タブキーの押下を取得する
にも書いてありますが。
Option Explicit
Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer
Private Const VK_SHIFT = &H10
Private Const VK_CONTROL = &H11
Private Sub Form_Load()
If GetKeyState(VK_CONTROL) < 0 Then
MsgBox "Ctrl キーが押されています"
End If
End Sub