ab.com コミュニティ

何を質問しているか解らない奴は、於いとくとして
仕様と言うよりバグじゃないのか

で、質問は何？

お世話になります。

　メッセージ ボックスを連続的に表示した場合、最後以外から
終了しても最後に表示したボックスを処理(終了)しなければスタック
したままで、戻ってきません。

　フックして HCBT_DESTROYWND で捕まえようとしたのですが駄目でした。

Sub MainWnd_CommandButton1_Click()
Dim r As Long
r=MessageBox(0,"テスト",0, MB_YESNO)
OutputDebugString("MessageBox:"+Str$(r)+Ex"\r\n")
End Sub


宜しくお願いします。