🚀 go-pugleaf

In article <01bd6291$ea942800$6b78f8ca@raccoon.carrot.co.jp>, yamazaki wrote:
>特定のウインドウを常に一番手前に表示する方法を探しています。

Visual Basic のサンプルプログラム群に“CALLDLLS”というプロジェクトが
含まれているならば、この中に「常に手前に表示」のサンプルが含まれて
いると記憶していますので、調べてみてはいかがでしょうか?

-- 
Computer Institute of Japan, Ltd.
佐藤正宏 masahiro@cij.co.jp

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

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

' 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

<01bd6291$ea942800$6b78f8ca@raccoon.carrot.co.jp>において
yamazaki@carrot.co.jpさんはおっしゃいました...
>特定のウインドウを常に一番手前に表示する方法を探しています。

http://www.asia.microsoft.com/japan/developer/vbasic/techinfo/
から辿れる
http://www.asia.microsoft.com/japan/developer/vbasic/FAQ/programfaq.htm
にヒントが載っています。

# 最低でもこういう公式FAQくらいは覗いてから質問すべきですよ :-)

-- 
日揮情報システム株式会社　星野 哲也
    official address : thoshino@jsys.co.jp
    personal address : hoshino@imasy.or.jp

<01bd6291$ea942800$6b78f8ca@raccoon.carrot.co.jp>の記事において  yamazaki 
さんは書きました...
>特定のウインドウを常に一番手前に表示する方法を探しています。

win32 APIのSetWindowPos関数を使うと最前面に表示できます。

-- 
Ishii Yoshihisa  komagane-city nagano
yoshih@janis.or.jp
-------------------------------------