VB初心者友の会 - Q&A掲示板過去ログ

> 初歩的な質問ですが、処理中にエラーで落ちたときに
> オブジェクト（クラスやコネクション）は自動的に破棄されるのでしょうか？
> また、破棄されないとすれば
> エラー処理の中で
> If (OBJ Is Nothing) =False then
>     Set OBJ = Nothing
> End If
> と、やってるんですが（オブジェクトの数だけ）
> もっと効率的に破棄する方法はあるんでしょうか？

確認しました。エラー終了のときには、破棄されません。ちょうど、
End（強制終了）を実行したときと、同じになるようです。(^_^;)

エラーをトラップし、そこで Unload Form1 などとして、プログラ
ムを終了させれば、クラスは破棄されます。なので、オブジェクトを
解放する一番簡単な方法は、必ずエラートラップし、エラー終了させ
ないことです。(^_^)

「必ずエラートラップするなんて、大変だ」と思われるかもしれませ
んが、それほどでもないです。トップ レベルのプロシージャにトラッ
プを付けるだけです。

トップレベル プロシージャは、どこからも呼ばれないプロシージャで
す。トップレベルにエラートラップがあれば、そこから呼ばれる部分で
発生したエラーは、トップレベル プロシージャで捕まえられます。
（途中のプロシージャでトラップしていれば別。）

トップレベル プロシージャは次のものです。
・Sub Main プロシージャ
・フォーム、コントロールなどのイベント プロシージャ
＃別に全部に付ける必要はないです。(^_^;)　
　「ここは簡単なことしかしていないので、エラーは起こらない」
　と思えるプロシージャならエラートラップを付ける必要はありません。