掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Windows終了時Form_QueryUnloadにcancelを送るには？ (ID:121259)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
頑張っているようなので、コードを投下します。 ノ■ミ '・フォーム:Form1.frmを作る ' ・タイマー:Timer1を貼り付ける Option Explicit Private Sub Form_Load() With Timer1 .Enabled = False .Interval = 1 End With End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode <> QueryUnloadConstants.vbFormCode Then 'Unloadステートメント以外で、 '自分の破棄が行われそうな場合は、その破棄を中断する。 Cancel = 1 Timer1.Enabled = True End If End Sub Private Sub Timer1_Timer() '自分の破棄が外部によって行われた。 Debug.Print "終了時に一回だけ呼ばれるタイマー" '自分を破棄する Unload Me End Sub ※フォームの閉じるボタンを押した場合、 Timer1_Timer()はちゃんと呼び出されるみたいです。 …「ウィンドウズの終了」をする実験までやる元気が無かったので、 もしかしたら、「ウィンドウズの終了」の時はちゃんと動かないかもしれません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.