xでボタンでdo文実行中に終了するには？

解決

サムライ 2003-07-02 06:05:24 No: 78495

はじめまして、vb6にてdo文実行中、フォームの右上ｘボタンで実行中のプログラムを終了すると、見かけ上、終了しているのですが、タスクマネージャーを起動するとアプリケーション欄では実行中で、同プログラムを再度実行するとそこにまたひとつ増えます。ｘで終了時、DO文から必ず抜けて終了するにはどうしたらよろしいでしょうか？
（例）
do
doevents
text1.text = time$ '時間を表示
loop until F_End = 1 '条件成立なら抜ける
xを押したときにForm_UnloadでF_End=1をいれたのですが、終了しませんでした。

Kenji 2003-07-02 06:28:57 No: 78496

F_Endをちゃんと宣言していないのでは？
宣言しないとプロシージャ内のみの変数となり、
Form_UnloadのF_Endとは違う変数として扱われます。

フォームのGeneral(コードの一番上とか)の部分で
Private F_End As Integer
などと宣言しましょう。

サムライ 2003-07-02 06:37:46 No: 78497

Kenjiさん、さっそくのレスありがとうございます。宣言はしているので、指摘いただいた内容ではないようです。（駄洒落）

サムライ 2003-07-02 06:54:26 No: 78498

Form_Unloadに一文追加で解決しました。お騒がせしました。
End 'プログラムを終了させる