裏技ぁ？第４弾：ウィンドウを常に手前に表示

裏技ぁ？第４弾：ウィンドウを常に手前に表示するというのをやってみたいと思います。


この方法は知っている人は知っているし、知らない人は非常に苦労するようです。

「Zオーダー」というのをご存知でしょうか？
Ｚオーダーはウィンドウの重なる順番のことです。

ということは、このZオーダーを常に一番上に保っていれば
常に１番手前にウィンドウが表示される事になります。
今回はこのZオーダーを設定するのにSetWindowPos()関数を使う事にします。
この関数を使ってプログラムを作るとこんな感じになりました。

Private Sub Check1_Click()
If Me.Check1.Value Then
    '常に手前に表示する
    Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
Else
    '解除
    Call SetWindowPos(Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
End If
End Sub

たったこれだけのことですが、以外に知らない方が多いと思うので取り上げてみました。