| ■ SetForegroundWindow |
| 指定したウィンドウをフォアグラウンドウィンドウに設定します |
| バックグラウンドのウィンドウが突然フォアグラウンドになると驚きます |
| 十分に注意して使用しましょう |
'------------------------------------------------------------------------------
' フォアグラウンド設定（宣言）
'------------------------------------------------------------------------------
Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Dim w_hwnd As Long ' ハンドル
Dim w_ret As Long ' 戻り値
' 指定したウィンドウをフォアグラウンドウィンドウに設定する
w_ret = SetForegroundWindow(w_hwnd)
|