91.ウインドウを手前にする(一時的)

< 使用用途 >
常に手前にするのならSetWindowsPosを使う


 < 説明 >
API関数のBringWindowToTop を使用します
BringWindowToTop =>ウインドウを手前にする
  <引数>
      hwnd:ウインドウのハンドル
  @戻り値@
      正常終了0以外
*常に手前にはならない


< SAMPLE >
’ここでは自ウインドウを手前にする処理です
'標準モジュール
Public Declare Function BringWindowToTop Lib "USER32" (ByVal hWnd As Long) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
  Dim Ret As Long
   Ret = BringWindowToTop(Form1.hWnd)
End Sub





API 技術関連のページへ戻る

ホーム PV ランキング