ユーザーがログアウトリンクをクリックすると、ユーザーに警告メッセージを表示する必要があるコードを実装しようとしています。
This will terminate the session and close the browser. Do you want to continue?
私のウェブサイトは IE6 と IE7 で動作しています。私はそれを実装するために以下のコードを書きました。
Sub OnClickLogout()
dim Answer, msg
Msg = "This will terminate the session and close the browser. Do you want to continue?"
Answer = MsgBox(Msg, vbYesNo + vbExclamation, "Warning")
if Answer = vbYes then
window.opener = "y"
window.parent.opener= "x"
window.parent.close
end if
サブ終了
私のコードは IE6 で完全に正常に動作し、ウィンドウは正しく閉じています。しかし、IE7 で [はい] ボタンをクリックすると、次のような追加のメッセージが表示されます。
「表示中の Web ページがウィンドウを閉じようとしています。このウィンドウを閉じますか?」はいといいえボタンで
この余分なメッセージは必要ありません。IE6でも同じメッセージが表示されましたが、そのために検索して、設定する必要があることを確認しましたがwindow.parent.opener = "Some String".
、これはIE7では機能しませんIE7でこのメッセージを削除する方法を教えてください