vbsでの閉じるボタン無効化について

Question

vbs初心者です。

参考先URL

上記URL先を参考にして、閉じるボタンを無効化したウインドウを作ろうと、
メモ帳で以下のコードをVBスクリプトで書きましたが
無効化していませんでした。

何か抜けているものがあるのでしょうか？教えていただけると幸いです。

MsgBox "okkkk" 'とりあえず処理

Sub UserForm_QueryClose(Cancel, CloseMode)
    If CloseMode = 0 Then
        MsgBox "nooo", 48
        Cancel = True
    End If
End Sub

Comments

[dodox86]

参考にされたページの記事は Excelで使うVBA(Visual Basic for Applications)に関するものです。対して質問者さんのコードはスクリプトを単独で使うVBScriptのように思いますがどうでしょうか。また、どのフォームに対してクローズボタン押下をキャンセルしようとしているのでしょう。MsgBoxには効きません。

[Nanmotsu]

MsgBoxには効かないのですね。

どういうフォームが使えるか分かりませんが、
クイズのようなポップアップで、答えるまで消えないものを作りたいです。

投げやりな質問で申し訳ありませんが、何か使えそうなものをお教えいただけると助かります。

Answer 1

そのページは、VBAのフォームの話なので、VBScriptのダイアログボックスとは全く関係ありません。

ans = Msgbox("okkkk",表示されるボタンの種類と個数を表す数値)

の第二引数の数値によっては、ダイアログボックスのクローズボタンがグレーアウトされて押せなくなります。

ansの値でどのボタンが押されたか、あるいはクローズボタンが押されたか、わかります。

Comments

[Nanmotsu]

そうなのですね。ありがとうございます。

完全に勉強不足です。勉強しなおしていきます。