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

> 私が自作したフリーソフトを使用して下さった方から、タイトルバーの右端にある
> 「閉じる（×）ボタン」をクリックして、ソフトを終了させようとすると、
> 「このプログラムは不正な処理を行ったので強制終了されます」のエラーが出て終了するという報告を受けました。
> 私の環境では、正常に終了されます。このソフトは約1700本ダウンロードされていますが、
> ソフトを終了させようとすると、強制終了されるという報告を受けたのは今回が初めてです。
> (略)
> メインフォームの「閉じるボタン」をクリックしたときの処理は以下の通りです。
> Private Sub Form_Unload(Cancel As Integer)
> 　　'編集フォームを閉じる
>     Unload frmDataInput
> 　　'検索フォームを閉じる
>     Unload frmDataSearch
> 　　'ヘルプフォームを閉じる
>     Unload frmHelp
> 　　'メインフォームを閉じる
>     Unload frmMain
> End Sub
> ※フォームを開いている閉じている関係なく最後には、強制的に閉じるようにしています。
> 　閉じているフォームを閉じようとするとエラーが出るということはあるのでしょうか？
> (略)
> 私の環境はWin98SEで、エラーが出ている方の環境はWin98です。

処理を見る限り、また、1/1700 の確率でしか出てないことを考えると、プログラム自体は
問題無いと思います。

Win98 だと常に落ちるようなら、環境の差になりますから、Win98 でコンパイル＆セット
アップの作成をすれば、落ちなくなると思います。

Win98 だからというわけで無ければ、落ちる原因はそのコンピュータにあるでしょう。プロ
グラム作成者としては、不安要素を取り除くぐらいしか出来ません。
以下、念のための作業(といってもあまり思いつきません　(^^ゞ)。
・ロードしていないフォームには Unload をかけない
・フォームローカル、クラスローカルのオブジェクトは、その破棄を明示する
　Terminate イベントで、Set xx = Nothing とする。

> 私が自作したフリーソフトを使用して下さった方から、タイトルバーの右端にある
> 「閉じる（×）ボタン」をクリックして、ソフトを終了させようとすると、
> 「このプログラムは不正な処理を行ったので強制終了されます」のエラーが出て終了するという報告を受けました。
> 私の環境では、正常に終了されます。このソフトは約1700本ダウンロードされていますが、
> ソフトを終了させようとすると、強制終了されるという報告を受けたのは今回が初めてです。
> (略)
> メインフォームの「閉じるボタン」をクリックしたときの処理は以下の通りです。
> Private Sub Form_Unload(Cancel As Integer)
> 　　'編集フォームを閉じる
>     Unload frmDataInput
> 　　'検索フォームを閉じる
>     Unload frmDataSearch
> 　　'ヘルプフォームを閉じる
>     Unload frmHelp
> 　　'メインフォームを閉じる
>     Unload frmMain
> End Sub
> ※フォームを開いている閉じている関係なく最後には、強制的に閉じるようにしています。
> 　閉じているフォームを閉じようとするとエラーが出るということはあるのでしょうか？
> (略)
> 私の環境はWin98SEで、エラーが出ている方の環境はWin98です。

処理を見る限り、また、1/1700 の確率でしか出てないことを考えると、プログラム自体は
問題無いと思います。

Win98 だと常に落ちるようなら、環境の差になりますから、Win98 でコンパイル＆セット
アップの作成をすれば、落ちなくなると思います。

Win98 だからというわけで無ければ、落ちる原因はそのコンピュータにあるでしょう。プロ
グラム作成者としては、不安要素を取り除くぐらいしか出来ません。
以下、念のための作業(といってもあまり思いつきません　(^^ゞ)。
・ロードしていないフォームには Unload をかけない
・フォームローカル、クラスローカルのオブジェクトは、その破棄を明示する
　Terminate イベントで、Set xx = Nothing とする。

藤代千尋さん、ご回答ありがとうございました。

> 処理を見る限り、また、1/1700 の確率でしか出てないことを考えると、プログラム自体は
> 問題無いと思います。
> 
> Win98 だと常に落ちるようなら、環境の差になりますから、Win98 でコンパイル＆セット
> アップの作成をすれば、落ちなくなると思います。
> 
> Win98 だからというわけで無ければ、落ちる原因はそのコンピュータにあるでしょう。プロ
> グラム作成者としては、不安要素を取り除くぐらいしか出来ません。
> 以下、念のための作業(といってもあまり思いつきません　(^^ゞ)。
> ・ロードしていないフォームには Unload をかけない
> ・フォームローカル、クラスローカルのオブジェクトは、その破棄を明示する
> 　Terminate イベントで、Set xx = Nothing とする。

とりあえず、プログラム的には問題のないというお言葉を頂き、ホッとしています。
それでは、環境の問題ということで、せめてみたいと思います。
しかし、不安な要素を含んでいる手抜きのコードではいけないと思うので書き換えておきます。

藤代千尋さん、ご回答ありがとうございました。

> 処理を見る限り、また、1/1700 の確率でしか出てないことを考えると、プログラム自体は
> 問題無いと思います。
> 
> Win98 だと常に落ちるようなら、環境の差になりますから、Win98 でコンパイル＆セット
> アップの作成をすれば、落ちなくなると思います。
> 
> Win98 だからというわけで無ければ、落ちる原因はそのコンピュータにあるでしょう。プロ
> グラム作成者としては、不安要素を取り除くぐらいしか出来ません。
> 以下、念のための作業(といってもあまり思いつきません　(^^ゞ)。
> ・ロードしていないフォームには Unload をかけない
> ・フォームローカル、クラスローカルのオブジェクトは、その破棄を明示する
> 　Terminate イベントで、Set xx = Nothing とする。

とりあえず、プログラム的には問題のないというお言葉を頂き、ホッとしています。
それでは、環境の問題ということで、せめてみたいと思います。
しかし、不安な要素を含んでいる手抜きのコードではいけないと思うので書き換えておきます。