８４．特殊キーの状態を設定する

＜　使用用途　＞
特殊キーの状態を設定する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード　・・・下記のサンプルと同じです。　

　＜　説明　＞
ＡＰＩ関数の　keybd_event　 を使用します
keybd_event＝＞特殊キーの状態を設定する
　　＜引数＞
　　　　　bVk：定数（VK_××参照）
　　　　　bScan：スキャンコード
　　　　　dwFlags：定数（KEYEVENTF_参照）
　　　　　dwExtraInfo：常に0
　　＠戻り値＠
　　　　　なし 　 　　　

<　ＳＡＭＰＬＥ　＞
’ここでは全ウインドウを最小化したりエクスプローラー等を起動する処理です
'標準モジュール
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2’キーを放す　　　

Public Const VK_ADD = &H6B '「＋」キー
Public Const VK_BACK = &H8 '「BS」キー
Public Const VK_CANCEL = &H3 '「BREAK]キー
Public Const VK_ATTN = &HF6 '「SHIFT　LOCK]キー

Public Const VK_WIN = &H5B '「Windows」キー
Public Const VK_D = 68'「D」キー
Public Const VK_E = 69 '「E」キー
Public Const VK_F = 70'「F」キー
Public Const VK_R = 82'「R」キー


'ここからはフォーム内の処理です
Private Sub Command1_Click(Index As Integer)
　
　　'Winキーを押す
　　Call keybd_event(VK_WIN, 0, 0, 0)

　　　 Select Case Index

　　　　 Case 0
　　　　　　　 'Dを押す--->全ウインドウ最小化
　　　　　　　Call keybd_event(VK_D, 0, 0, 0)
　　　　 Case 1
　　　　　　　　'Fを押す--->スタートメニューの「検索」を起動
　　　　　　　Call keybd_event(VK_F, 0, 0, 0)
　　　　 Case 2
　　　　　　 　'Eを押す--->「エクスプローラー」を起動
　　　　　　　Call keybd_event(VK_E, 0, 0, 0)
　　　　Case 3
　　　　　　　 'Rを押す--->スタートメニューの「ファイル名を指定して実行」を起動
　　　　　　　Call keybd_event(VK_R, 0, 0, 0)

　　End Select

　　'Winキーを放す
　Call keybd_event(VK_WIN, 0, KEYEVENTF_KEYUP, 0)

End Sub