「フォームの「閉じる」ボタンを無効にする」への評価、コメント

> メニューのプロシージャでMe.Closeした場合には、m.Msg=70 となり、終了を検出できないようです

ここで紹介しているのはフォームの閉じるボタンを無効にする方法で、Closeメソッドが呼び出されても閉じないようにする方法ではありません。フォームが閉じられた原因を知る方法は、以下のページで説明しています。

http://dobon.net/vb/dotnet/form/unloadmode.html

> FormClosingイベントで e.Cancel = True としたら、終了はしないのですが、タスクトレイのアイコンが消えてしまいました。

私が試した限りでは、消えませんでした。

タスクトレイに常住するプログラムで、ContextMenuStripによるメニューから終了する仕組みにしています。
そのメニューのプロシージャでMe.Closeした場合には、m.Msg=70 となり、終了を検出できないようです(Win7 x64 VB2010 対象フレームワーク:.NetFramewok4)

終了するかどうかの確認をするのが目的です。

FormClosingイベントで e.Cancel = True としたら、終了はしないのですが、タスクトレイのアイコンが消えてしまいました。

何か対策はありますでしょうか。

評価：良い
ずっと探していたものがこんなところにあったとは…
やった～

> 『 m.WParam.ToInt32() = SC_CLOSE 』だと６４ビット環境で System.OverflowException を起こしてしまいますね。

0xFFF0とAndして比較すべきでした。修正しておきます。ご報告ありがとうございました。

＞ 閉じられる原因を調べて判断する方法
こちらの
＞ Const SC_CLOSE As Integer = &HF060
＞ If m.Msg = WM_SYSCOMMAND And m.WParam.ToInt32() = SC_CLOSE Then
ですが、これ『 m.WParam.ToInt32() = SC_CLOSE 』だと
６４ビット環境で System.OverflowException を起こしてしまいますね。
こちらの環境だとウィンドウ上部を右クリックした時に発生しました。

なので、以下のように修正すると良いかと。

<System.Security.Permissions.SecurityPermission(System.Security.Permissions.SecurityAction.LinkDemand, Flags:=System.Security.Permissions.SecurityPermissionFlag.UnmanagedCode)> _
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Const WM_SYSCOMMAND As Integer = &H112
Dim SC_CLOSE As IntPtr = New IntPtr(&HF060) '修正箇所１
If m.Msg = WM_SYSCOMMAND And m.WParam = SC_CLOSE Then '修正箇所２
Return
End If
MyBase.WndProc(m)
End Sub

基本IntPtrをIntegerに合わせるのではなく、
IntegerをIntPtrにして比較する方針が得策かと。
なるべくIntPtrに合わせる方向で。

困っていたので大変助かりました。
どうもありがとうございました。

評価：良い
業務で役立つ情報なので助かりました。

別件ですが、解決しました。