by ベーやん » 2011年2月04日(金) 18:02
お世話になります。
メッセージ ボックスを連続的に表示した場合、最後以外から
終了しても最後に表示したボックスを処理(終了)しなければスタック
したままで、戻ってきません。
フックして 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
宜しくお願いします。
お世話になります。
メッセージ ボックスを連続的に表示した場合、最後以外から
終了しても最後に表示したボックスを処理(終了)しなければスタック
したままで、戻ってきません。
フックして 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
宜しくお願いします。