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

通常のコメント

Mon, 22 Jun 2015 01:19:21 +0900

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

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

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

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

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

通常のコメント

Thu, 30 Apr 2015 20:24:17 +0900

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

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

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

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

評価の理由

Wed, 05 Sep 2012 22:32:15 +0900

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

通常のコメント

Mon, 09 Apr 2012 21:56:11 +0900

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

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

通常のコメント

Thu, 26 Jan 2012 01:30:54 +0900

＞閉じられる原因を調べて判断する方法
こちらの
＞ 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 を起こしてしまいますね。
こちらの環境だとウィンドウ上部を右クリックした時に発生しました。

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

_
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に合わせる方向で。

通常のコメント

Mon, 16 Jan 2012 10:22:29 +0900

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

評価の理由

Wed, 08 Apr 2009 21:43:17 +0900

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

通常のコメント

Sun, 15 Mar 2009 03:48:13 +0900

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