🚀 go-pugleaf

やまざきさん、こんにちわ。
正確なタイトルは忘れてしまいましたが、「ＶｉｓｕａｌＢａｓｉｃテクニック
ライブラリ」
とかいう本に出ていた手法です。お役に立つでしょうか？

--------------------------------------------------

' SetWindowPos() のフラグ
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOCOPYBITS = &H100
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER

' SetWindowPos() hWndInsertAfter の値
Private Const HWND_TOP = 0
Private Const HWND_BOTTOM = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Private Declare Function SetWindowPos _
Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long _
) As Long

Private Sub Form_Load()
    '   このフォームを一番手前に設定
    SetWindowPos hwnd, HWND_TOPMOST, _
        0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    Debug.Print "Load Form...Done"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    '   一番手前設定を解除
    SetWindowPos hwnd, HWND_NOTOPMOST, _
        0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    Debug.Print "Unload Form...Done"
End Sub
--------------------------------------------------



yamazaki wrote:

> はじめまして。yamazakiです。
>
> 特定のウインドウを常に一番手前に表示する方法を探しています。
>
> ご存知でしたら、教えてください。
> よろしくお願いします。



--
Masaaki Suga
from Tokyo Japan
mailto: masa_sug@tka.att.ne.jp