UnLoadイベントを、強制終了時も行ないたい。 (ID:101571)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 (案1) 標準モジュールなどに、Forms コレクションを列挙して ロード済みの全フォームを Unload するためのデバッグ用プロシージャを 用意しておき、■を押す代わりに、イミディエイト ペインなどから そのプロシージャを呼び出すようにする。 http://www.microsoft.com/japan/msdn/vs_previous/vbasic/faq/programfaq.htm 》Q. [VB5][VB4]全てのフォームを、確実にアンロードする方法を教えてください。 (案2) ボードと接続する部分を、ActiveX コントロールとして ocx 化し、 UserControl_Terminate の中でオブジェクの終了処理を行うようにする。 (これを貼り付けたフォームがどのように閉じられても、終了処理が発生) Option Explicit Private designMode As Boolean Private Sub UserControl_InitProperties() designMode = Ambient.UserMode End Sub Private Sub UserControl_ReadProperties(PropBag As PropertyBag) designMode = Ambient.UserMode End Sub Private Sub UserControl_Terminate() If designMode Then MsgBox "解放処理をここに記述" End If End Sub