２８．ウインドウをアクティブにさせる



＜　使用用途　＞
ウインドウをアクティブにさせる　　　　

＜　説明　＞
ＡＰＩ関数のSetActiveWindow を使用します。
SetActiveWindow＝＞ウインドウをアクティブにさせる　　　　
　　＜引数＞
　　　　　　hWnd&：ウインドウのハンドル
　　＠戻り値＠　　
　　　　　　直前にアクティブだったウインドウのハンドル

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function SetActiveWindow Lib"USER32" (ByVal hWnd&) As Long
'ここからはフォームの処理
Private Sub Command1_Click()
　　 Dim Ret As Long
　　　　’Form1をアクティブにする
　　　　　Ret=SetActiveWindow(Form1.hwnd)
End Sub