VB6
お世話になります。
以下の関数にて、ウインドウを最前面に表示する処理を行っていると、Msgboxが隠れてしまい
表示されないのですが、何か良い方法はないのでしょうか？
よろしくお願い致します。

SetWindowPos Me.hwnd, conHwndTopmost, _
                 Me.Left / Screen.TwipsPerPixelX, _
                 Me.Top / Screen.TwipsPerPixelY, _
                 Me.Width / Screen.TwipsPerPixelX, _
                 Me.Height / Screen.TwipsPerPixelY, 0

conHwndTopmost で他のウィンドウをTopに設定したいでは矛盾するかと。

Msgbox を表示する前に
第二引数を conHwndNoTopmost に変更して見たらどうでしょうか？

> conHwndTopmost で他のウィンドウをTopに設定したいでは矛盾するかと。
>
> Msgbox を表示する前に
> 第二引数を conHwndNoTopmost に変更して見たらどうでしょうか？

元のコードは、以下となっています。

iRtn = MsgBox("コンピュータを終了してよろしいですか？", vbYesNo+ vbQuestion + vbDefaultButton2, "終了")

以下のように変更し、実行しましたが、残念ながらだめなようです。

iRtn = MsgBox("コンピュータを終了してよろしいですか？", conHwndNoTopmost , "終了")

よろしくお願いします。

> 以下のように変更し、実行しましたが、残念ながらだめなようです。
いや、MsgBox 関数じゃなくて、SetWindowPos 関数の方ですよ。(^_^;)
MsgBox 表示中は、最前面表示を一時的に中止する、ということです。


もし、MsgBox 関数側で対応するなら、第2引数に vbSystemModal フラグを追加するとか。

> > 以下のように変更し、実行しましたが、残念ながらだめなようです。
> いや、MsgBox 関数じゃなくて、SetWindowPos 関数の方ですよ。(^_^;)
> MsgBox 表示中は、最前面表示を一時的に中止する、ということです。
>
>
> もし、MsgBox 関数側で対応するなら、第2引数に vbSystemModal フラグを追加するとか。

ご返信ありがとうございます。
最前面表示を一時的に中止するのはまずいんです。
だから、MsgBox 関数側で対応したいのですが・・・vbSystemModal を追加してもだめでした。
よろしくお願いします。

> だから、MsgBox 関数側で対応したいのですが・・・

ならば、MsgBox と同様のフォームを自作し、それを最前面にモーダル表示するとか。

> 最前面表示を一時的に中止するのはまずいんです。
仮にMsgBoxを最前面に表示したら元のウィンドウは最前面でなくなるのでは。
同時に複数のウィンドウを最前面に表示する事はできませんよね。
解除するというより２番目に移動(表示)すると考えたらいいのでは。

>MsgBox 関数側で対応したいのですが・・・vbSystemModal を追加してもだめでした
なら  or vbMsgBoxSetForeground 　ではどうでしょう。

一度状況を再現できるコード(使っているコード)を投稿して見て下さい。
試した限りでは、MsgBox が最前面に表示されますが（隠れない）