２９．ウインドウ(コントロール)にフォーカスを与える



＜　使用用途　＞
ウインドウ(コントロール)にフォーカスを与える　　　　　　　　　

＜　説明　＞
ＡＰＩ関数のSetFocusAPI を使用します。
SetFocusAPI＝＞ウインドウ(コントロール)にフォーカスを与える　　　　　　　　　
　　＜引数＞
　　　　　　hWnd&：ウインドウ(コントロール）のハンドル
　　＠戻り値＠　　
　　　　　　直前にフォーカースがあったウインドウのハンドル

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function SetFocusAPI Lib "USER32" Alias "SetFocus" (ByVal hWnd&) As Long
'ここからはフォームの処理
Private Sub Command1_Click()
　　 Dim Ret As Long
　　　　'Form1にフォーカスを与える
　　　　　Ret=SetFocusAPI(Form1.hwnd)
End Sub