End命令実行後フォーム表示させるには?

解決


一郎  2004-10-22 11:09:03  No: 86183  IP: [192.*.*.*]

End命令でプログラムを終了
すると表示されていたフォームが消えてしまいます。そのまま表示させる方法を教えてください。

編集 削除
nanashi  2004-10-22 11:34:27  No: 86184  IP: [192.*.*.*]

ヘルプを読めば分かると思いますが、Endステートメントは強制終了です。
フォームが消えるも何も、強制終了ですからそのまま表示させる方法はありません。
何をしたいのでしょうか?

編集 削除
一郎  2004-10-22 12:13:48  No: 86185  IP: [192.*.*.*]

説明不足ですみません。
フォームを表示させた常駐プログラムを作ってまして
それがやたら重いのです。そこでフォームに起動ボタンと停止ボタンを
つけて停止ボタンを押した時だけ常駐を終了させたいのです。
一度Endしないと常駐がずっと動いてまして困っています。
起動ボタンを押せばまた処理を再開するというものです。

現在は停止ボタンを押すとフォームが消えてしまいます。
よろしくお願いします。

編集 削除
nanashi  2004-10-22 12:23:48  No: 86186  IP: [192.*.*.*]

どんな処理をしているか分かりませんが

> 一度Endしないと常駐がずっと動いてまして困っています。

これが良くないと思います。
停止ボタンで常駐が解除されるように作り変えてください。

編集 削除
一郎  2004-10-22 12:51:40  No: 86187  IP: [192.*.*.*]

質問にお答え頂きありがとうございます。
常駐のおおもとはタイマーコントロールです。
これを止めることが出来れば解決します。
Private Sub form_load()
   Timer1.Interval = 1000           
End Sub

大変初歩的で申し訳ございませんがタイマーコントロールを
停止ボタンで止める方法を教えて下さい。

編集 削除
よし  2004-10-22 12:55:24  No: 86188  IP: [192.*.*.*]

EnableをFalseにします

編集 削除
一郎  2004-10-22 13:31:43  No: 86189  IP: [192.*.*.*]

ご協力ありがとうございます
こんなことに3ヶ月も悩んでました。
ありがとうございました。

編集 削除